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Preface 


This  report  is  the  result  of  research  done  in  fiscal  year  1993  (FY93)  on 
the  theory  and  application  of  image  enhancement  techniques  performed  in 
the  Computer  Science  Division  (CSD),  Information  Technology  Labora¬ 
tory  (ITL),  U.S.  Army  Engineer  Waterways  Experiment  Station  (WES), 
Vicksburg,  MS.  It  is  the  continuation  of  the  FY92  research  on  image  com¬ 
pression  (Ellis  1992). 

The  report  describes  the  evaluation  of  image  processing  techniques  in¬ 
cluding  singular  value  decomposition  (SVD),  the  two-dimensional  Fourier 
transform,  median  filters,  morphological  transforms,  edge  detection, 
image  crispening,  noise  cleaning,  and  other  enhancement  techniques.  The 
FY92  program,  IMAGE92,  was  completely  rewritten  by  Mr.  Michael  G. 
Ellis,  Sr.,  and  Mr.  Roy  L.  Campbell,  Jr.  (the  authors),  to  include  both  the 
FY92  compression  programs  and  the  FY93  enhancement  programs.  The 
complete  listing  for  IMAGE93  is  given  in  the  Appendixes. 

Both  the  FY92  and  FY93  research  are  preludes  for  developing  three- 
dimensional  image  processing  techniques  adaptable  to  use  in  real-time  applica¬ 
tions.  The  prototype  desktop  conferencing  system  developed  by  the 
authors  as  part  of  this  research  effort  is  intended  to  be  a  test  application 
for  the  demonstration  of  these  algorithms  in  FY94.  An  image  processing 
minilab,  established  during  this  research  effort,  has  been  equipped  with 
the  hardware  digital  signal  processing  (DSP)  tools  needed  for  real-time  im¬ 
plementation  of  image  compression  and  enhancement  algorithms. 

The  work  was  accomplished  at  WES  under  the  supervision  of  Dr.  N. 
Radhakrishnan,  Director,  ITL,  and  Dr.  Wendell  F.  Ingram,  Chief,  CSD. 

At  the  time  of  publication  of  this  report,  the  Director  of  WES  was 
Dr.  Robert  W.  Whalin.  The  Commander  was  COL  Bruce  K.  Howard,  EN. 


1  The  Image  Enhancement 
Project 


The  image  enhancement  project  reported  herein  is  a  continuation  of  Fis¬ 
cal  Year  1992  (FY92)  research  at  the  U.S.  Army  Engineer  Waterways  Ex¬ 
periment  Station  (WES)  on  image  compression  (Ellis  1992).  The  FY92 
work  developed  new  techniques  for  image  compression  yielding  very  high 
compression  ratios.  Research  conducted  in  FY93  focused  on  image  en¬ 
hancement  techniques,  and  the  results  of  that  research  are  fully  described 
in  this  report.  The  software  IMAGE92  was  rewritten  to  include  both  the 
compression  techniques  studied  and  developed  in  FY92  and  the  enhance¬ 
ment  techniques  researched  in  FY93.  The  new  software,  IMAGE93,  incor¬ 
porates  many  algorithms  not  normally  attempted  on  personal  computers 
(PC’s)  because  of  memory  limitations,  including  singular  value  decompo¬ 
sition  (SVD)  and  two-dimensional  (2-D)  Fourier  transforms. 


An  offshoot  of  the  FY93  project  was  the  establishment  of  an  image- 
processing  minilab  equipped  with  the  hardware  and  software  necessary  to 
perform  image  analysis  research.  Part  of  the  minilab  is  shown  in  Figure  1 . 
The  equipment  consists  largely 


of  PC’s,  dedicated  digital  sig¬ 
nal  processors  (DSP),  video 
capture  boards,  network  pro¬ 
gramming  utilities,  and  vari¬ 
ous  types  of  scientific  and 
imaging  libraries.  A  complete 
list  of  the  resources  of  the 
minilab  is  given  in  Table  1 . 

Suggestions  for  research 
into  FY94  will  include  the 
extension  of  the  image  com¬ 
pression  and  enhancement 
algorithms  into  3-D  and 
modification  for  real-time 
applications.  A  prototype  desk¬ 


top  conferencing  system  has  Figure  1 .  A  portion  of  the  image  processing  minilab  at 
been  developed  as  part  of  the  WES 
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FY93  project  as  a  possible  application  to  extend  and  test  the  FY92  and 
FY93  compression  and  enhancement  algorithms.  This  desktop  video  con¬ 
ferencing  system  currently  transmits  uncompressed  voice  and  video  over 
the  WES  ethernet.  The  incorporation  of  the  compression  and  enhance¬ 
ment  algorithms  into  this  prototype  system  is  intented  to  provide  a  suit¬ 
able  demonstration  of  the  utility  and  feasibility  of  video  collaboration 
tools  over  local  and  wide  area  networks. 


Tabtol 

Capacities  of  WES  Image  Analysis  Minilab 

Conqpuiara  and  Equipment 

Four  60486  PCs 

One  SGI  IRIS  4D/25G  workstation 

Aocees  to  local  SUN  and  CRAY 

Macintosh  ttfx  computer  with  COROM 

Novell  2.15C  PC  Fleaerver 

Laserprinter 

BemouK  Drive 

CDROM 

3-1/2-in.  (8.9  cm)  21  Mbyte  Ftaplical  Drive 

Courier  9600  Baud  (V.32)  modem 

Digital  tMflnal  tYoceaeor  Development  Stations 

Texas  Instruments  TMS320  Digital  Signal  Processor  Evaluation  module 

Texas  Inekuments  ELF-31  (TMS32031)  Digital  Signal  Processor  Development  module 

Motorola  DSP56002  Development  Station 

Programming  Languages 

Microsoft  Assembly 

Visual  Basic 

Microsoft  C++7.0 

Programming  Enhancement  Tools 

C-Scape  software  Sxary 

TSRific  (TSR  development  software) 

Builder  Software  TooWt 

C  Windows  Toolchast 

Zinc  Programming  Library 

Video  for  Windows  Programming  library 

Windows  Programming  library 

Network  Programming  Tools 

Netift)  (for  Novell) 

Packet  Driver  Software  Development  Specifications 

FTP  Socket  library 

Video  snd  Sound  Capture  Boards 

CompuAdd  Mulfimedte  TV  Board 

Super  Video-SL  Video  Capture  Board  with  Developers  Kit 

16-fait  Targa  Bravado  Board  with  Developers  Kit 

SuperVia  Video  Capture  Board 

MicroKey  Digiview  Video  Capture  Board 

Action  Medta  II  Video  Capture  Board 

Pro  DigiTV  Video  Capture  Board 

Video  ProMovie  Spectrum  Video  Capture  Board 
Two  Sound  Blaster  Pro  16  Boards 
with  Developers  Kit 

Video  Equipment 

Three  NTSC  cameras 

VMS  VCR 

TV 

Spectrum  Analyzer,  2  Mhz  to  1  Ghz 

Speech  Recognition  and  Synthesis 

Dragon  Dictate  voice  recognition 

Speech  Secretary  II  voice  recognition 

Phonetic  Engine  voice  recognition 

Echo  PCII  Speech  Synthesis  Board 

Image  Processing  Software  Libraries 

ImageLab  Software  (FY92  version) 

Image93  Software  (FY93  version) 

SuperVIA  Image  Processing  software 

Victor  image  processing  fibrary 

Imaging  objects  software  fibrary 

Math  and  Scientific  Lforaries  for  the  PC 

Unpack  scientific  software  fibrary 

Scientific  subroutines  by  Wley 

Touchstone/DOS  &  Linecalc  software 

MATLAB  software 

CDROM  Library 

SimtsCO 

CCA  MS  Windows 

USENET  Source  CDROM 

INFO-MAC 

GIFS 

OS/2 

X11R/GNU 

CUG  library 
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A  Fiber  Distributed  Data  Interface  (FDDI)  network,  operating  at  100 
Mbps,  is  currently  used  as  the  backbone  for  a  local  area  network  serving 
over  2,000  nodes  within  the  WES  685-acre  (277-hectare)  facility.  Without 
image  compression,  the  operation  of  just  a  few  video  collaboration  de¬ 
vices  on  the  WES  network  would  be  sufficient  to  exhaust  the  capacity  of 
the  entire  FDDI  backbone.  Even  the  installation  of  a  high-speed  SONET 
backbone  would  not  suffice  to  allow  all  WES  users  to  concurrently  partici¬ 
pate  in  video  collaboration  and  desktop  conferencing.  The  ability  to  per¬ 
form  real-time  image  compression  and  enhancement  will  be  vital  in  the 
creation  of  video  collaboration  tools  to  support  future  work. 

The  remainder  of  this  report  will  concentrate  on  the  research  performed 
during  FY93.  Complete  source  code  listings  are  included  in  the  appen¬ 
dixes.  A  combination  of  BASIC,  C,  and  8086  assembly  language  was 
used  in  writing  IMAGE93.  The  main  menu  is  a  Visual  Basic  program  that 
shells  to  DOS  to  run  a  C  program,  depending  on  what  options  are  chosen. 
Each  individual  menu  item  shells  to  a  different  C  program.  The  C  pro¬ 
grams  often  include  embedded  assembly  language  routines  when  process¬ 
ing  speed  is  required.  Although  most  tasks  can  be  performed  in  640K 
memory,  the  SVD  and  2-D  Fourier  transforms  require  at  least  8  Mbytes  of 
RAM  in  the  computer.  A  full  set  of  source  and  compiled  code  occupies 
four  high-density  3-1 /2-in.  floppy  disks.  A  super  video  graphics  adapter 
(SVGA)  is  recommended  using  an  appropriate  VESA  graphics  interface  to 
support  the  graphic  modes  required  by  the  program. 

The  prototype  desktop  conferencing  software  is  independent  of 
IMAGE93  and  consists  of  three  network  applications  that  use  the  TCP/IP 
protocol  as  a  transport  mechanism  for  voice  and  video.  This  set  of  three 
programs  will  also  be  described  later  in  this  report. 


Chapter  1  The  Image  Enhancement  Project 


3 


2  Using  Singular  Value 
Decomposition  to  Remove 
Image  Blur 


Abstract 

According  to  Scharf  (1991),  SVD  is  an  acceptable  method  for  decom¬ 
posing  a  noisy  transmission  matrix  into  a  noise  matrix  and  a  refined 
approximation  of  the  true  signal.  This  chapter  extends  this  concept  to 
blurred  images,  defining  the  blur  as  noise  and  the  sharpened  image  as  the 
refined  signal.  The  theory  as  well  as  the  implementation  of  the  SVD  are 
discussed  in  detail. 


Introduction 

Blur  is  considered  to  be  the  result  of  a  system’s  transfer  function. 

If  the  system  is  analogous  to  a  stationary  camera,  the  transfer  function 
will  likely  cause  nominal  blurring;  if  the  system  is  more  compatible  to  a 
moving  camera,  the  transfer  function  will  probably  contain  notable  blurring. 
If  an  impulse  response  can  be  obtained,  an  SVD  can  be  applied  to  separate 
the  noise  or  blur  tendencies  from  the  image-producing  abilities  of  the 
transfer  function  (Huang  1979).  The  SVD  is  a  numerical  analysis  method 
used  to  convert  a  matrix  into  three  corresponding  components:  two  eigen¬ 
vector  sets  and  one  eigenvalue  set  (Pratt  1991).  The  resulting  sets  are 
ordered  such  that  the  majority  of  the  noise  or  blur  can  be  extracted  by  re¬ 
moving  the  last  few  values  of  each  set.  Construction  of  the  image  with 
the  noise  members  removed  eliminates  the  majority  of  the  blur  (Huang 
1979). 
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Theory 


Any  linear  system  can  be  modeled  by  the  following  equation  (Ziemer, 
Tranter,  and  Fannin  1989): 

G  =  H  ®  F  (1) 

where 

G  -  output  response 

H  =  impulse  response  or  transfer  function 
F  =  system  input 
®  =  convolution 

With  respect  to  images,  G  is  the  blurred  image  and  F  is  the  original  or 
ideal  image;  H  is  the  transfer  function  or  impulse  response  of  the  image- 
processing  system.  The  following  equation  describes  the  ideal  image  F 
(Huang  1979): 

F  =  [Hfl  G  (2) 

where 


F  =  ideal  image 
G  -  blurred  image 

[//]"'  =  Moore-Penrose  pseudoinverse  of  H 

This  equation  can  be  manipulated  into  a  form  for  which  the  SVD  is  useful 
(Huang  1979): 


F  = 


i=l 


where 


F  -  ideal  image 
R  =  arbitrary  integer 
X.  =  eigenvalue  of  H 
v.  =  eigenvector  from  the  V  set  of  H 
uJt  =  eigenvector  from  the  transpose  of  the  U  set  of  H 
g  =  column  of  the  blurred  image 


(3) 


To  understand  the  variables  involved,  a  discussion  of  SVD  is  needed. 
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Of  ail  the  other  algorithms,  SVD  is  the  most  efficient  energy-packing 
technique  in  the  least  square  sense  (Jain  1989).  The  SVD  is  based  primar¬ 
ily  on  the  following  equation  (Pratt  1991): 

UTHV  =  >/A  (4) 

where 

UT  =  transpose  of  the  U  eigenvector  set 
H  -  impulse  response  matrix 
V  =  V  eigenvector  set 
A  =  eigenvalue  set 

Since  only  the  impulse  response  H  is  known,  there  are  three  unknowns: 
the  U  and  V  eigenvector  sets  and  the  eigenvalue  set.  To  obtain  these  three 
unknowns,  an  iterative  method,  the  SVD,  must  be  applied.  The  SVD  em¬ 
ploys  a  Householder  reduction  as  well  as  other  complicated  manipula¬ 
tions,  which  are  all  beyond  the  scope  of  this  report  (Press  et  al.  1988). 

The  dimensions  of  the  impulse  response  matrix  are  important  to  the  use¬ 
fulness  of  the  SVD.  If  the  width  is  less  than  or  equal  to  the  height,  a 
unique  solution  can  be  expected;  otherwise,  an  infinite  set  of  solutions  can 
be  expected  (Press  et  al.  1988).  To  simplify  the  theory,  only  cases  with 
unique  solutions  will  be  used. 

Once  the  matrix  is  decomposed,  it  can  be  reconstructed  with  the  follow¬ 
ing  equation  (Pratt  1991): 

H  =  (5) 

The  inverse  matrix  or  Moore-Penrose  pseudoinverse  can  then  be  described 
by  the  following  equation: 

[Hfl  =  V^TrUr  (6) 

Noise  can  be  removed  by  zeroing  out  the  last  few  columns  in  the 
V  matrix,  the  last  few  rows  in  the  U  transpose  matrix,  and  the  last  few 
diagonal  elements  in  the  eigenvalue  matrix,  as  shown  in  the  following 
equation  (Pratt  1991): 
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Vii  •  Via  o  ■  o  o 
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•  Urn 

i«r‘  = 

:  :  'Vtf 
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UlR  • 

■  1>UR 

....  o 

0 

0 

Vati  •  Vnr  0  •  0  0 

0 

0 

•  0 

where 


M  -  width  of  impulse  response  matrix 
N  =  height  of  impulse  response  matrix 

Although  the  subscripts  on  the  U  matrix  seem  to  be  backwards,  they  sig¬ 
nify  the  transpose  of  U.  The  subscript  R  is  an  arbitrary  value  and  is  depen¬ 
dent  on  the  specific  impulse  response. 


Construction  of  the  ideal  image  can  be  performed  according  to  Equa¬ 
tion  2.  However,  this  construction  can  be  done  one  eigen-set  at  a  time 
(where  one  eigen-set  consists  of  one  U  eigenvector,  one  V  eigenvector, 
and  one  eigenvalue)  as  described  in  Equation  3  and  as  repeated  in  Equa¬ 
tion  8  (Pratt  1991,  Huang  1979): 


F™  X  rf*vi"!s 

i=i 

where 

F  =  ideal  image 
R  =  arbitrary  integer 
A.,-  =  eigenvalue  of  H 
v.  =  eigenvector  from  the  V  set  of  H 
Ujt  =  eigenvector  from  the  transpose  of  the  U  set  of  H 
g  =  column  of  the  blurred  image 


(8) 


This  method  provides  versatility  in  adding  and  removing  a  given  eigen- 
set’s  effect  on  the  composite  image. 


Implementation 


For  still  images,  deducing  an  impulse  response  is  unlikely  without  full 
control  of  the  image-capturing  system:  the  camera.  Therefore,  no  blur 
removal  could  be  performed;  however,  the  SVD’s  efficient  energy-packing 
ability  could  be  demonstrated  by  replacing  the  impulse  response  matrix 
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with  an  image  I  in  Equations  4  and  5.  Amounts  of  energy  could  then  be 
associated  with  the  eigen-set’s  placement  in  the  series. 

The  C  code  in  Appendix  A  was  written  to  perform  SVD  on  an  entire 
image.  The  dynamic  memory  allocation  and  deallocation  as  well  as  the 
SVD  computation  subroutines  were  found  in  Numerical  Recipes  in  C 
(Press  et  al.  1988);  however,  the  SVD  computation  was  heavily  modified. 
All  other  codes  pertain  to  data  management,  file  management,  and  image 
reconstruction. 

With  regard  to  data  management,  a  large  memory  pool  was  needed 
since  the  SVD  was  expected  to  handle  an  entire  image.  This  memory  pool 
needed  to  be  approximately  7  Mbytes  in  size;  therefore,  extended  PC  mem¬ 
ory  had  to  be  used.  This  task  was  handled  with  the  Victor  Library  (Cate¬ 
nary  Systems  1992);  the  Victor  Library  is  capable  of  interfacing  between 
C-based  code  and  the  extended  memory  windowing  system  of  the  PC. 

For  file  management,  the  major  issue  was  the  internal  and  external  file 
formats.  A  standard  8-bit  palette  definition  was  chosen  as  the  standard  ex¬ 
ternal  file  format  so  that  the  input  and  the  reconstructed  output  could  be 
viewed.  In  order  to  preserve  the  exactness  of  the  SVD’s  results,  internal 
files,  used  for  eigenvector  and  eigenvalue  storage,  were  created  as  a  list  of 
floating  point  numbers.  These  internal  files  were  necessary  to  allow  fu¬ 
ture  reconstruction  without  requiring  SVD  computation  because  the 
SVD’s  operation  time  can  be  lengthy. 

Image  reconstruction  was  performed  according  to  the  following  equa¬ 
tion,  which  is  based  on  Equation  5  (Pratt  1991); 

R 

/  -  X  VMO  ut  vf  (9) 

p=l 

where 

/  =  image  matrix 
R  =  arbitrary  integer 
X  «  eigenvalue  of  the  image 
u(  =  eigenvector  from  the  image’s  U  set 
v.T  =  eigenvector  from  the  image’s  transpose  of  the  V  set 

The  display  routine  was  designed  to  demonstrate  the  reconstruction  one 
eigen-set  at  a  time,  giving  visual  evidence  that  the  first  few  eigen-sets  con¬ 
tain  the  majority  of  the  image  energy.  The  demonstration  could  be  recre¬ 
ated  at  any  time  with  the  second  program,  located  in  Appendix  B. 

The  code  in  Appendix  B  was  written  for  reconstruction  and  image- 
manipulation  purposes.  The  program,  first,  reconstructs  the  image  one 
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eigen-set  at  a  time.  Afterwards,  the  user  has  the  opportunity  to  remove  or 
add  eigen-sets.  All  display  images  can  be  saved  within  the  program  in  the 
external  file  format. 

The  code  in  Appendix  C  was  written  to  display  external  files.  One 
VGA  resolution  mode  (320X200)  and  three  SVGA  resolution  modes 
(640X480,  800X600,  and  1024X768)  are  available. 


Results 


Figures  2-8  demonstrate  the  inverse  pro¬ 
portionality  of  the  image  energy  to  the 
eigen-set  number.  Figure  2  is  the  original 
image.  Figure  3  is  the  original  image  ab¬ 
sent  the  effects  of  the  first  eigen-set;  as  can 
be  seen,  the  image  is  heavily  degraded  be¬ 
cause  the  first  eigen-set  contains  the  most 
energy  of  all  the  eigen-sets.  The  removal 
of  eigen-set  2  from  the  original  image,  as 
shown  in  Figure  4,  has  some  minor  effects. 
All  other  removals  have  only  subtle  effects 
(Figures  5-8). 

Figures  9-22  show  a  reconstruction  pro¬ 
gression  as  individual  eigenvalue  influences 
are  added.  Dramatic  change  is  evident  in 
the  first  seven  additions;  however,  the  ef¬ 
fects  of  further  additions  severely  taper  as 
the  eigen-set  number  increases. 


Figure  2.  Original  image 


Figure  3.  Original  with  eigen-set  1  removed  Figure  4.  Original  with  eigen-set  2  removed 
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Figure  5.  Original  with  eigen-set  8  removed  Figure  6.  Original  with  eigen-set  16  removed 


Figure  7.  Original  with  eigen-set  64  removed  Figure  8.  Original  with  eigen-set  256  removed 
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Figure  9.  Reconstruction  using  the  first  eigen-  Figure  10.  Reconstruction  using  the  first  two 
set  eigen-sets 


Figure  11.  Reconstruction  using  the  first  three  Figure  12.  Reconstruction  using  the  first  four 
eigen-sets  eigen-sets 
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Figure  13.  Reconstruction  using  the  first  five  Figure  1 4.  Reconstruction  using  the  first  seven 

eigen-sets  eigen-sets 


Figure  15.  Reconstruction  using  the  first  nine 
eigen-sets 


Figure  16.  Reconstruction  using  the  first  12 
eigen-sets 
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Figure  17.  Reconstruction  using  the  first  15  Figure  18.  Reconstruction  using  the  first  18 
eigen-sets  eigen-sets 


Figure  19.  Reconstruction  using  the  first  21  Figure  20.  Reconstruction  using  the  first  24 
eigen-sets  eigen-sets 
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Figure  21.  Reconstruction  using  the  first  27 
eigen-sets 


Figure  22.  Reconstruction  using  the  first  30 
eigen-sets 


Conclusions 

For  cases  in  which  the  image-capturing  system  cannot  be  modeled, 
SVD  is  not  a  feasible  method  for  deblurring.  However,  if  a  system’s  im¬ 
pulse  response  or  transfer  function  is  known,  SVD  is  capable  of  separat¬ 
ing  the  parts  of  the  transfer  function  that  cause  noise  from  those  that 
transfer  the  image. 
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3  Using  the  Discrete  Fourier 
Transform  to  Remove 
Interference  Patterns 


Theory 

The  Discrete  Fourier  Transform  (DFT)  is  a  direct  result  of  the  Fourier 
Transform  (FT).  The  following  equation  describes  the  1-D  FT  over  a  con¬ 
tinuous  space  (Ziemer,  Tranter,  and  Fannin  1989): 


g(x)  *  f  Gifle^df 

— oo 

•O 

G{f)  =  j  g(x)e~J2^cdx 
where 


(10) 


g(x)  =  continuous  space  representation 
G(f)  =  continuous  frequency  representation 

For  an  image,  the  space  is  more  accurately  represented  in  a  discrete  form 
as  shown: 


gs(x)  =  X  g{x)5(x-nX) 


(ID 


where 


x  =  cX 

c  =  arbitrary  interger 
X  -  spacing  between  samples 
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gs  (x)  =  function  of  discrete  space 
g(x)  ~  function  of  continuous  space 


Using  the  following  property  of  the  impulse  function.  Equation  1 3  can  be 
deduced  (Zieraer,  Tranter,  and  Fannin  1989): 


g(x)  8  (x  -  xj  =  g(xj  8  (x  -  Xa) 

(12) 

oo 

gs(cX)  =  X  8inX)S(cX-nX) 

(13) 

n  =  -oo 


Substituting  the  g  (cX)  for  g(x)  in  the  second  equation  of  Equation  10,  the 
following  equations  result: 


m  =  S 


J  g(nX)  8  (x-  nX) 


7!  =  -« 


e-fl*f*dx 


Gif)  =  X g(nX ) 


ft  X  —  oo 


J  8  (x  -  nX)  e  ^  dx 


Gif)  =  Jtg(nX)e'J2^mx 


fl  =  -  oo 


(14) 


The  last  equation  is  a  direct  result  of  the  sifting  property  of  the  impulse 
function  shown  in  the  following  equation  (Ziemer,  Tranter,  and  Fannin 
1989): 


J  g(x)  8 (x-x^) dx  =  gixj  (15) 


Since  the  sample  space  is  discrete,  the  frequency  representation  will  be 
discrete: 

f  —  kF 

where 


k  *s  arbitrary  integer 
F  =  base  frequency 
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g(kF)=  £s(nJO«'y7K<W)B* 

"  =  '~  (16) 

oo 

*<*)=  X  g(nX)'~j7nknX 

Assuming  the  nonzero  region  of  g(nX)  is  observed  for  {n:0</t<jV-l },  X  rep¬ 
resents  a  fraction  of  some  unit  length  such  that  NX  =  1  unit;  also,  the  lim¬ 
its  of  n  are  reduced  to  0  ana  N- 1 : 

G(k)  =  £  g(n/N)  e  ( 1 7) 

n  =  0 

With  the  following  definitions.  Equation  1 8  can  be  deduced: 
u(n)Ag(nN),  v(k)  A  G(k),  and  W  Ae~fMn  (Jain  1989). 

*“  n  * — 

N-\ 

v(k)  =  X  “(")  wjf,  for  0ZkZN-\,  kel  (18) 

N=0 

where 


v(k)  =  function  of  discrete  frequency 
u(n)  =  function  of  discrete  space 

This  1-D  result  can  be  extended  to  the  following  2 -D  equation,  which 
represents  the  2-D  DFT  (Jain  1989): 


M- 1 


**,0  =  X 

m  =  0 


//—  1 

X  «(«. «)  wjf 


#i*0 


for  0£k£M-  1  and  0 <  1  S/V- 1,  Jk,  le/ 

where 


v(k,l)  = 
u(m,  n)  = 
k  = 
/  = 
m  - 
n  = 


function  of  2-D  discrete  frequency 
function  of  2-D  discrete  space 
vertical  frequency  index  (row) 
horizontal  frequency  index  (column) 
vertical  sapce  index  (row) 
horizontal  space  index  (column) 


(19) 
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M  =  image  height 
N  =  image  width 

The  2-D  inverse  DFT,  shown  in  Equation  20,  can  be  developed  in  a  sim¬ 
ilar  manner  (Jain  198 9). 


M - 1  MV-1 


■*”•»>  =  sx;  I  2><M wf 


k=0  1=0 


Although  the  DFT  is  easy  to  implement,  it  is  extremely  time-consuming; 
therefore,  the  Fast  Fourier  Transform  (FFT)  needs  to  be  investigated.  The 
FFT  provides  exactly  the  same  domain  translation  that  the  DFT  does,  but 
it  is  exceedingly  faster.  When  the  1-D  case  described  in  Equation  18  is  an 
alyzed,  this  method  takes  advantage  of  the  periodicity  of  HOiit  (Rabiner 
and  Gold  1975): 


rnk  _  w(n+cN)(lc+dN) 
N  ~  WN 


(21) 


where  c,d  =  arbitrary  integers 

To  develop  the  method,  a  discrete  function  u(n)  is  assumed  to  describe 
a  row  in  an  image  such  that  its  length  is  N,  where  N  is  a  power  of  two. 
This  row  can  be  broken  into  two  subrows  as  shown: 


Uj(n)  =  u(2n) 
u2(n )  =  u(2n+  1) 

where  n  =  0,1,2, . . . ,  N/z  - 1 


(22) 


Combining  Equations  18  and  22,  the  following  results: 
N-  1  IV-  1 

**)  *  X  < +  X  < 

w  =  0  ii  =  0 

n  even  n  odd 


(23) 


Adjusting  the  summation  indices  to  match  those  in  Equation  22  and  com¬ 
pensating  this  change  by  adjusting  the  argument  of  the  summation,  the  fol¬ 
lowing  equations  are  achieved: 
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?- 


m  = 


vik)  = 


X  u(2n)  Wp  +  X«(2«+1)H# 

n  =  0  n  =  0 


(2»+l)* 


!- 


I- 


I«iW  <■  +  I  «2(»)  < 

n  »  0  n  =  0 


(2/t+l)i 


?- 


/V 


-1 


**)  = 


£*,(»)  W*"*+  W*.  S«2 <n)H# 

n  =  0  m*0 


2nk 


(24) 


v(*)  =  t/,(Jt)  +  W*  •  t/2(i) 

Since  Equation  24  only  describes  the  first  half  of  the  frequency  compo¬ 
nents,  it  must  be  extended  according  to  the  general  definition’s  periodic 
nature  (Rabiner  and  Gold  1975): 


v(Jfc)  =  t/j(Jfc)  +  W*  •  £/2(Jfc)  for-0£*£4i-l 

v(k)  =  £/,(*- 1)  +  W*  •  t/2(*-y)  for  N/i<ik<,N -  1 


To  provide  the  FFT  with  a  standard  operation  scheme,  the  row  u(n)  is 
halved  until  all  subrows  are  two  pixels  long  such  that  each  subrow  can  be 
transformed  by  the  following: 

vi  - «, +  K  ■  ui 

V2  =  Vl-K-  U1 


This  equation  describes  the 
FFT  butterfly  shown  in  Fig¬ 
ure  23  (Rabiner  and  Gold  1975) 

This  initial  set  of  transforma¬ 
tions  is  only  the  first  stage  in 
the  FFT  process;  there  are 
log2N  stages.  Figure  24  shows 
complete  FFT  schematic  for  a 
row  eight  pixels  long  (Rabiner 
and  Gold  1975).  Figure  23.  FFT  butterfly 
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Figure  24.  FFT  schematic  for  row  with  eight  pixels 

The  row  has  to  be  reordered  as  implied  in 
Equation  22  and  as  shown  in  Figure  24;  a  sim¬ 
ple  technique  can  be  used  to  perform  this  shuf¬ 
fling:  index  bit  reversal.  This  concept  is 
illustrated  in  Table  2  (Rabiner  and  Gold  1975). 

The  inverse  FFT  can  be  performed  in  three 
basic  steps  (Rabiner  and  Gold  1975):  (1)  All 
values  of  v(k)  are  conjugated.  (2)  The  FFT  is 
applied  to  v(k).  (3)  The  resulting  image  row  is 
divided  by  N. 

For  2-D  images,  the  1-D  FFT  can  be  used. 
First,  each  row  is  processed;  using  these  re¬ 
sults,  each  column  is  processed.  The  outcome 
is  the  conjugate  of  the  results  obtained  if  a  2-D 
DFT  were  applied.  To  inverse  the  process,  all 
values  of  v(k,l)  are  first  conjugated;  then,  the 
FFT  is  applied  to  each  row.  The  results  are 
divided  by  N.  Next,  the  FFT  is  applied  to  each  column  of  this  outcome. 
The  results  are  divided  by  N,  providing  a  restored  2-D  image. 
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Implementation 


The  C  code  in  Appendix  D  performs  the  DFT  on  an  image;  this  code  is 
based  on  Equation  19.  Extended  memory  management  was  handled  with 
the  Victor  Library  (Catenary  Systems  1 992).  The  external  file  format, 
used  for  reading  the  original  image  and  storing  the  reconstructed  image,  is 
binary  or  standard  RGB;  internal  files,  used  for  storing  the  real  and  im¬ 
aginary  planes  of  the  DFT,  are  a  list  of  floating  point  numbers. 

The  code  in  Appendix  E  performs  the  inverse  DFT;  it  is  based  on  Equa¬ 
tion  20  and  also  uses  extended  memory. 

Appendix  F  contains  the  code  for  the  FFT.  The  FFT  subroutine  is  a 
modified  version  of  the  FFT  routine  found  in  a  publication  by  Rabiner  and 
Gold  (1975).  This  program  loads  an  image  into  extended  memory,  com¬ 
putes  the  real  and  imaginary  planes  of  the  DFT,  and  stores  these  results  to 
hard  disk.  The  real  and  imaginary  DFT  planes  are  displayed. 

Appendix  G  contains  the  code  for  the  inverse  FFT.  This  program  loads 
the  real  and  imaginary  planes  of  the  DFT  into  extended  memory;  then,  the 
image  is  reconstructed,  stored  to  hard  disk,  and  displayed. 

The  code  in  Appendix  H  is  a  program  used  for  editing  both  planes  of 
the  DFT.  First,  the  two  planes  are  loaded  into  extended  memory.  Next, 
three  editing  options  are  given:  (1)  display  a  section  of  the  DFT  graphi¬ 
cally,  (2)  edit  a  DFT  entry,  (3)  show  a  section  of  the  DFT  textually,  and 
(4)  zero  out  a  block.  The  graphical  display  allows  the  user  to  spot  interfer¬ 
ence  flares  in  the  DFT.  Autoscaling  is  performed  for  each  zoomed-in  sec¬ 
tion  so  that  peaks  and  valleys  become  evident.  Interference  usually 
appears  as  a  tumor-like  figure  on  the  DFT.  When  the  user  zooms  in  on 
this  “tumor,”  its  existence  becomes  evident;  its  topology  is  analogous  to  a 
mountain.  The  fourth  option  can  be  used  to  level  this  mountain.  Upon  ex¬ 
iting,  the  user  can  choose  to  save  the  modified  DFT  file. 


Results 


Due  to  the  lengthy  processing 
time,  the  DFT  was  limited  in  use; 
however,  it  did  give  interesting 
insight  into  the  symmetries  of  its 
real  and  imaginary  planes.  Figure 
25  shows  a  4x4  image  and  both  of 
its  DFT  planes.  Disregarding  the 
first  row  and  first  column  on  both 
the  planes,  there  is  an  obvious  symmetry;  however,  this  symmetry  only 
holds  when  the  height  and  width  are  even.  Figure  26  shows  a  5x5  image 
and  both  of  its  DFT  planes.  Absent  the  first  row  and  column  on  both 
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Figure  25.  Summary  of  4x4  image 
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planes,  a  definite  symmetry  exists,  which  is  different  from  the  even  height 
and  even  width  case.  This  symmetry  is  unique  only  to  images  with  odd 
width  and  height. 
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Figure  26.  Summary  of  5x5  image 


The  results  of  the  DFT  code  matched  hand  calculations;  therefore,  this 
program  was  used  to  aid  in  troubleshooting  the  FFT  code.  Once  the  FFT 
program  was  perfected,  it  was  used  thereafter,  since  it  provided  such  enor¬ 
mous  time  savings.  A  time  test  was  conducted  on  a  64x64  image.  The  pro¬ 
cessing  time  for  the  DFT  was  40  min,  and  the  time  for  the  FFT  was  10  sec, 
giving  a  time  ratio  of  240:1.  The  theoretical  time  ratio  is  approximately 
341:1  as  shown: 


2-P  DFT  No.  of  operations  =  N* 


2-D  FFT  No.  of  operations  =  2N2  log^  N 


RATIO 


2  1ogzW 


2  •  108^64 


*  341 


(27) 


where  N  =  width  =  height. 

A  herringbone-type  of  interference  occurs  in  television  when  the  video 
carrier  is  not  spaced  exactly  3.579545  MHz  below  the  chrominance  carrier 
as  illustrated  in  Figure  27  (Grab  1975).  The  FFT  was  applied  to  this 
herringbone -type  image  (Figure  28)  and  edited  with  the  FFT  Editor.  Then, 
the  inverse  FFT  was  applied;  the  results  are  shown  in  Figure  29.  Although 
traces  of  interference  are  still  present,  the  majority  of  the  interference  has 
been  removed. 
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Figure  27.  Standard  NTSC 
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Figure  29.  Image  with  interference  reduced 
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While  debugging  the  inverse  FFT  code,  an  interesting  peculiarity  was 
discovered.  For  example,  an  original  image  is  provided  in  Figure  30.  If 
the  FFT  is  not  conjugated  before  row  operations  are  performed,  the  recon¬ 
structed  image  is  flipped  both  vertically  and  horizontally,  as  shown  in 
Figure  31.  If  the  FFT  is  conjugated  before  row  operations  and  again  just 
before  column  operations,  the  image  is  flipped  vertically,  as  shown  in 
Figure  32.  Finally,  if  the  FFT  is  conjugated  only  previously  to  the  column 
operations,  the  image  is  flipped  horizontally,  as  shown  in  Figure  33. 


Figure  33.  Image  flipped  horizontally 


Figure  30.  Original  image  before  conjugating  Figure  31.  Image  flipped  both  vertically  and 

horizontally 


Figure  32.  Image  flipped  vertically 
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Conclusions 


The  DFT  is  a  competent  method  for  isolating  image  interference;  how¬ 
ever,  this  method  is  slow.  The  FFT  performs  the  same  task  as  the  DFT, 
but  the  FFT  is  exceptionally  faster.  Therefore,  the  FFT  is  the  prescribed 
method  for  interference  removal. 
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4  Processing  Images 
Morphologically 


Abstract 

Morphological  techniques  can  be  used  to  subjectively  improve  or  dis¬ 
tort  images.  This  chapter  discusses  the  theory  and  implementation  of  the 
following  operations:  dilation,  erosion,  closing,  and  opening. 


Introduction 

Morphological  processes  enhance  images  in  a  manner  that  preserves 
the  general  structure  of  the  image  but  manipulates  a  given  aspect.  Dila¬ 
tion  swells  dark  regions  often  causing  an  image  to  appear  thicker  or  fuller. 
Erosion  does  the  opposite;  it  expands  light  regions,  usually  thinning  the 
image.  Closing  consists  of  a  dilation  then  an  erosion.  The  net  effect  can 
occasionally  be  undesirable;  however,  when  a  given  image  has  small  gaps 
between  its  dark  regions,  the  closing  procedure  joins  these  regions  to¬ 
gether.  Opening  consists  of  an  erosion  then  a  dilation.  If  the  dark  regions 
are  thin,  this  method  erases  them. 

All  four  methods  are  based  on  image  set  algebra,  which  is  commonly 
viewed  as  tedious.  Fortunately,  shortcuts  exist  such  that  the  processes  can 
be  simplified  to  mere  magnitude  comparisons  (Pratt  1991). 


Theory 

To  discuss  morphological  methods  mathematically,  potential  images 
must  be  assumed  to  be  binary,  in  essence,  restricting  each  pixel  to  the 
values  0  or  1.  From  the  mathematics,  a  generalization  can  be  made  for 
all  images. 
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The  first  morphological  method  to  be  discussed  is  dilation;  dilation  is 
based  on  the  following  equation  (Jain  1989,  Pratt  1991): 

Gij,  k)  =  F(j,  k)  ©  H(j,  k)  (28) 

where 

G(j,  k)  =  resulting  image 
F(j,  k )  =  original  image 
H(j,  k)  =  structuring  element 
®  =  Minkowski  addition 

The  structuring  element  is  a  small  masklike  matrix  that  is  chosen  by  the 
user.  Equation  29  contains  an  equivalent  expression  of  Equation  28  (Pratt 
1991): 


<*/.*)  =  U  U  T  [F(j,k)\  (29) 

(r,c)€  H 

where 

kJ  =  union  of  a  matrix  series 
Trc  =  matrix  translation  function 

The  translation  function  spatially  shifts  a  matrix  r  rows  down  and  c  col¬ 
umns  to  the  right.  Figure  34  contains  an  example  of  dilation  by  means  of 
Equation  29  (Pratt  1991). 
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Figure  34.  Example  of  binary  image  dilation 

Generalizing,  dilation  can  be  performed  on  all  images  with  the  following 
equation  (Pratt  1991): 

G0.it)  =  MAX[F(j+\,k+l),F{j+l,k),F(j+l,k-l), 

F(j, k  +  1), F(j,  k),  F(j,k—  1),  (3' 

F{j-\,k+l),F(j-\,k),F(j-l,k-  1)] 

In  essence,  this  equation  finds  the  maximum  value  among  a  pixel’s  neigh¬ 
bors  and  itself.  The  new  pixel  is  equal  to  this  maximum.  The  neighbor¬ 
hood  size  can  be  increased  to  strengthen  the  dilation. 

The  second  method  is  erosion;  erosion  is  based  on  the  following  equa¬ 
tion  (Jain  1989,  Pratt  1991): 

G0.it)  =  F(j,  k)  ©  H(j,k)  (3 
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where 


G(j,  k)  =  resulting  image 
F(j,  k)  =  original  image 
H(j,  k)  -  structuring  element 
@  =  Minkowski  subtraction 

Equation  32  contains  an  equivalent  expression  of  Equation  31  (Pratt  1991): 
G{j, k)  =  O  n  Trx[F(j.k)] 

(r,  c)  €  H 


where 


O  =  intersection  of  a  matrix  series 

T  „  =  matrix  translation  function 
r,c 

Erosion  can  be  performed,  in  general,  with  the  following  equation  (Pratt 
1991): 

G(j,k )  =  MIN[F(j+l,k+l),F(j+l,k),F(j+i,k-l), 

F(j,k+l),F(j.k),F(jtk-l),  (33) 

F(j-l,k+l),F(j-l,k),h\j-l,k-l)] 

In  opposition  to  the  dilation  equation,  this  equation  finds  the  minimum 
value  among  a  pixel’s  neighbors  and  itself.  The  new  pixel  is  equal  to  this 
minimum.  The  neighborhood  size  can  be  increased  to  strengthen  the  ero¬ 
sion. 

The  third  method,  closing,  is  described  in  the  following  equation: 

G(j,k)  =  F(j,k)  •  H(j,k)  (34) 

where 

G(j,  k)  =  resulting  image 
F(j,  k)  =  original  image 
H(j,  k)  =  structuring  element 
•  =  Minkowski  closure 

The  Minkowski  closure  operation  is  achieved  by  first  applying  a 
Minkowski  addition  and  then  applying  a  Minkowski  subtraction.  Closing 
can  be  performed  on  all  images  by  first  using  a  general  dilation  and  then 
using  a  general  erosion. 
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The  fourth  method,  opening,  is  governed  by  the  following: 

Gij,k)  =  F(j,k)  °  H(j,k)  (35) 

where 

G(j,  k)  =  resulting  image 
F(j,  k)  =  original  image 
H(j,  k)  =  structuring  element 
°  =  Minkowski  opening 

Minkowski  opening  is  performed  by  applying  a  Minkowski  subtraction 
and  then  applying  a  Minkowski  addition.  In  general,  opening  can  be  ac¬ 
complished  by  using  a  general  erosion  then  using  a  general  dilation. 


Implementation 

Four  programs  were  written  for  this  chapter.  Each  uses  the  Victor  Li¬ 
brary  to  provide  extended  memory  management  (Catenary  Systems  1992). 
The  internal  and  external  file  formats  are  binary  or  standard  RGB. 

The  code  in  Appendix  I  dilates  an  image  according  to  Equation  30.  Ap¬ 
pendix  J  contains  the  code  to  erode  an  image,  as  described  in  Equation  33. 
The  code  in  Appendix  K  performs  the  closure  operation  on  an  image,  ac¬ 
cording  to  Equation  34.  Appendix  L  contains  the  code  to  open  an  image, 
as  described  in  Equation  35. 

For  each  program,  after  the  given  operation  is  performed,  the  results 
are  displayed  and  stored  to  hard  disk.  The  neighborhood  size  is  adjustable 
on  each. 


Results 


First,  the  four  morphological  methods  were  used  on  a  binary  image. 
Figure  35  shows  the  original.  The  results  of  dilation,  erosion,  closing,  and 
opening  are  contained  in  Figures  36-39,  respectively.  The  closing  and 
opening  neighborhoods  were  increased  to  emphasize  the  effects  of  these 
two  methods  and  to  force  the  desired  effect. 

Next,  five  gray  scale  images  were  tested.  Figures  40-64  contain  the 
original  images  and  the  results.  All  four  methods  operated  correctly  for 
each  case,  but  the  open  and  close  methods  showed  limited  capabilities  as 
described  in  the  theory.  For  closing,  the  light  regions  were  often  too  big 
to  consume.  For  opening,  the  light  regions  were  usually  separated  by 
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large  dark  regions.  By  increasing  the  neighborhood  size,  both  the  opening 
and  closing  methods  could  have  been  forced  to  work,  but  the  neighborhood 
size  is  directly  proportional  to  the  resolution  degradation  of  the  image. 


Conclusions 


Dilation,  erosion,  closing,  and  opening  are  four  morphological  processes 
that  can  be  used  to  manipulate  an  image  subjectively.  The  end  products 
of  these  methods  can  be  beneficial  although  their  use  reduces  the  image 
resolution  in  proportion  with  the  neighborhood  size. 
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Figure  35.  Original  binary  image 
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Figure  36.  Dilated  binary  image 
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Figure  37.  Eroded  binary  image 
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Figure  38.  Closed  binary  image 
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Figure  39.  Opened  binary  image 
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Figure  40.  Example  1 ,  original  gray  scale  image 


Figure  41 .  Example  1 ,  dilated  gray  scale  image 
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Figure  42.  Example  1 ,  eroded  gray  scale  image 


Figure  43.  Example  1 ,  closed  gray  scale  image 
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Figure  44.  Example  1 ,  opened  gray  scale  Image 


Figure  45.  Example  2,  original  gray  scale  image 
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Figure  46.  Example  2,  dilated  gray  scale  image 


Figure  47.  Example  2,  eroded  gray  scale  image 
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Figure  49.  Example  2,  opened  gray  scale  image 


Figure  48.  Example  2,  closed  gray  scale  image 
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Figure  50.  Example  3,  original  gray  scale  image 


Figure  51 .  Example  3,  dilated  gray  scale  image 


Chapter  4  Processing  Images  Morphologically 


43 


Figure  54.  Example  3,  opened  gray  scale  image 


Figure  55.  Example  4,  original  gray  scale  image 
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Figure  57.  Example  4,  eroded  gray  scale  image 
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Figure  58.  Example  4,  closed  gray  scale  image 


Figure  59.  Example  4,  opened  gray  scale  image 
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Figure  60.  Example  5,  original  gray  scale  image 
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Figure  61 .  Example  5,  dilated  gray  scale  image 
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Figure  63.  Example  5,  closed  gray  scale  image 
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Figure  64.  Example  5,  opened  gray  scale  image 
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5  Detecting  Edges 


Abstract 

Edge  detection  is  based  on  the  concept  of  gradients.  This  chapter  dis- 
i  cusses  numerous  edge  detection  methods  and  their  implementation. 


Introduction 


The  importance  of  edge  detection  is  best  seen  in  the  digitization  of  opti¬ 
cal  images.  The  real  or  optical  image  tends  to  have  more  edge  distinction 
(according  to  luminance)  than  the  sampled  image  because  a  low  pass  filter¬ 
ing  must  be  applied  during  the  digitization  process  to  avert  aliasing  (Pratt 
1991).  Therefore,  if  edges  can  be  detected,  other  algorithms  can  be  used 
to  strengthen  the  luminance  contrast  at  these  edges. 

Edge  detection  is  an  indirect  product  of  the  continuous  space  gradient, 
where  rows  are  in  the  x  direction,  columns  are  in  the  y  direction,  and  pixel 
values  are  represented  in  the  z  direction.  Due  to  the  spatially  discrete  na¬ 
ture  of  images,  this  process  can  be  performed  by  a  windowing  convolution 
algorithm. 


Theory 

The  following  equation  describes  the  continuous  gradient  of  an  optical 
image  (Pratt  1991): 

G(x, y)  =  cos  (0)  +  Sin  (0)  (36) 

where 

0  =  angle  of  approach 
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F(x,  y)  =  continuous  2-D  gradient 
G(x,  y)  -  continuous  gradient 

In  a  discrete  environment  like  a  digitized  image,  the  gradient  must  be  de¬ 
scribed  discretely  (Pratt  1991): 

GO',  k) 

eo,k) 

where 

G(j,  k)  =  discrete  gradient 
GR(j,  k)  =  discrete  row  gradient 
G^j,  k)  =  discrete  column  gradient 

6(j,  k)  =  spatial  orientation  of  discrete  gradient  with  respect 
to  the  row  axis 

A  simple  method  would  be  to  compare  two  adjacent  pixels  according  to 
magnitude  (Pratt  1991): 


GR(j,k)  =  F(j,k)  -  F(j,k+l) 

Gf4j,k)  =  F(j,k)  -  F(j+Uk)  (' 

However,  to  provide  versatility,  a  convolution  method  can  be  used  (Pratt 
1991): 


GR(j,k)  =  F(j,k)  ®  HR(j,k) 
G(4j,  k)  =  F(j,  k)  ®  H^k) 

where 


(39) 


®  =  windowed  convolution 
HR(j,  k)  =  row  impulse  response 
H(4j>  k)  =  column  impulse  response 


The  row  and  column  impulses  responses  are  chosen  by  the  user;  Table  3  is 
a  list  of  some  typical  3X3  impulse  responses  (Pratt  1991): 
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Table  3 

Typical  First-Order  3x3  Impulse  Responses 

Name 

Row  noaponee 

Column  Reeponee 

Pixei  difference 

0 

0 

0 

0 

-1 

0 

0 

1 

-1 

0 

1 

0 

0 

0 

0 

0 

0 

0 

Separated 

0 

0 

0 

0 

-1 

0 

difference 

1 

0 

-1 

0 

0 

0 

0 

0 

0 

0 

1 

0 

Sobei 

0.25 

0 

-025 

-025 

-0.5 

-025 

0.5 

0 

-0.5 

0 

0 

0 

025 

0 

-025 

025 

0.5 

025 

Roberts 

0 

0 

-1 

-1 

0 

0 

0 

1 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

Prewitt 

0.33 

0 

-0.33 

-0.33 

-0.33 

-0.33 

0.33 

0 

-0.33 

0 

0 

0 

0.33 

0 

-0.33 

0.33 

0.33 

0.33 

Frw-Chen 

0293 

0 

-0293 

-0293 

-0.414 

-0293 

0.414 

0 

-0.414 

0 

0 

0 

0293 

0 

-0293 

0293 

0.414 

0293 

The  windowed  3x3  convolution  is  performed  as  follows: 


G{i,k)  =  fl(0,0)  *F(j- l,k-  1)  +  H(0, 1)  * F(j—  l,k) 

+  H( 0,2)  *  F(j-  1,*+  1)  +  H(l,0)  *  F(j, k -  1) 

+  H{  1, 1)  *  F(j, k)  +  H(  1,2)  *  F(j,k+  1)  (40) 

+  H(2,0)  *  F(j+  1,4—1)  +  H(2, 1)  *  F(j  +  l,Jfc) 

+  H(2,  2)  *  F(j  +  1 ,  A  +  1) 

For  pixels  located  at  the  border  of  the  image,  reflection  is  used  to  replace 
missing  pixels  that  are  needed  to  process  the  windowed  3x3  convolution. 
Table  4  contains  a  description  of  a  typical  5x5  impulse  response  (Pratt 
1991): 


Table  4 

Typical  First-Order  5x5  Impulse  Response 


Name 

Row  Reeponee 

Column  Reeponee 

Nevatia-Babu 

0.1 

0.1 

0 

-0.1 

•0.1 

-0.1 

-0.1 

-0.1 

-0.1 

-0.1 

0.1 

0.1 

0 

-0.1 

-0.1 

-0.1 

-0.1 

-0.1 

-0.1 

-0.1 

0.1 

0.1 

0 

-0.1 

-0.1 

0 

0 

0 

0 

0 

0.1 

0.1 

0 

-0.1 

-0.1 

0.1 

0.1 

0.1 

0.1 

0.1 

0.1 

0.1 

0 

-0.1 

-0.1 

0.1 

0.1 

0.1 

0.1 

0.1 

The  windowed  5x5  convolution  is  an  extension  of  Equation  40. 
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The  following  equation  is  the  basis  for  second-order  edge  detection 
(Pratt  1991): 


_  %  n2  rr~,  v,  -d2F(x,y)  -d  F(x,y) 

G(x,y )  =  -V  [F(x,  y)]  = ~ —  + — — 


ax" 


dy 


(41) 


Locations  where  the  second  derivative  of  the  image  function  is  non-zero 
are  considered  to  be  members  of  an  edge  (Pratt  1991).  The  following  is  a 
simple  second-order  method  (Pratt  1991): 


G(J,  k)  =  [FO,  k)  -  FO ,  k  -  1)]  -  [FQ,  *+l)  -  F(j,  *)] 

+  [FQ,  k)  ~  F0+  l,k)]~  [FO-  1  ,*)  -  FO,  k)] 

The  convolution  method  is  described  as  follows  (Pratt  1991): 

GO,  k)  =  FO,  k)  ®  HO,  k)  (43) 


Table  5  lists  some 
3x3  impulse  re¬ 
sponses  for  use  in 
second-order  edge 
detection.  An  im¬ 
pulse  response  is 
considered  to  be  sep¬ 
arable  when  it  can 
be  broken  into  a  row 
second  derivative 
and  a  column  second 
derivative,  as  shown 
(Pratt  1991): 

-0.25  0.125  -0.25  ,  -1  2  -1  .  -1  -1  -1 

H(j,k)  -  0.125  0.5  0.125  =  ^*-12-1+^*  2  2  2  (44) 

-0.25  0.125  -0.25  -1  2  -1  8  -1  -1  -1 


Table  5 

Typical  Second-Order  3x3  Impulse 
Responses 

Name 

Impulse  Response 

Lapiadan  4  Neighbor 

0  -0-25  0 

-025  1  -025 

0  -025  0 

Prewitt  8  Neighbor 

-0.125  -0.125  -0.125 

-0.125  1  -0.125 

-0.125  -0.125  -0.125 

Separable  8  Neighbor 

-025  0.125  -025 

0.125  0.5  0.125 

-025  0.125  -025 

Implementation 

The  code  in  Appendix  M  performs  the  windowed  convolution  with  any 
odd  order  square  impulse  response.  A  “bias_flag”  of  1  is  needed  to  enable 
representation  for  both  positive  and  negative  gradients.  Positive  gradients 
appear  bright  (with  values  above  128);  negative  gradients  appear  dark 
(with  values  below  128).  All  computation  is  done  in  conventional  memory. 
Internal  and  external  files  are  binary  or  standard  RGB.  A  unique  feature 
of  this  program  is  that  as  the  windowed  convolution  is  performed,  the 
screen  is  updated. 
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Results 


All  first-  and  second-order  impulse  responses  were  applied  in  a 
windowed  convolution,  as  shown  in  Figures  66-82.  The  original  is  shown 
in  Figure  65. 

The  pixel  difference  impulse  responses  are  weaker  than  the  other  im¬ 
pulse  responses,  due  to  the  pixel  difference’s  lack  of  numerical  sophistica¬ 
tion.  The  separated  difference  impulse  responses  are  powerful  and 
simple.  The  Sobel  impulse  responses  are  comparable  to  the  separated  dif¬ 
ference  in  strength;  however,  the  Sobel  impulse  responses  are  unnecessar¬ 
ily  more  complex.  The  Roberts  impulse  responses  are  keen  in  extracting 
finer  details,  as  can  be  seen  in  Figures  72  and  73;  the  individual  stones 
can  easily  be  located.  Also,  the  Roberts  impulse  responses  can  detect  both 
horizontal  and  vertical  edges  by  using  either  the  row  or  column  impulse  re¬ 
sponse,  unlike  the  previous  types  which  typically  detect  vertical  edges 
with  a  row  response  and  horizontal  edges  with  a  column  response.  The 
Prewitt  set  is  much  like  the  Sobel  set,  the  only  difference  being  magni¬ 
tude.  For  its  complexity,  the  Frei-Chen  set  has  only  average  edge  detec¬ 
tion  capabilities.  The  Nevatia-Babu  gives  low  resolution  results. 

Little  difference  exists  between  the  results  of  the  windowed  convolu¬ 
tions  of  different  second-order  impulse  responses.  Although  the  graphical 
representations  in  Figures  80-82  seem  to  indicate  weak  edge  detection, 
they  actually  prove  that  second-order  impulse  responses  are  superior  to 
first-order  responses.  Careful  examination  is  required  because  the  images 
are  represented  in  halftones. 


Conclusions 

The  Roberts  set  of  impulse  responses  has  proved  to  be  the  most  desir¬ 
able  first-order  edge-detection  tool  because  of  its  simplicity,  its  high  reso¬ 
lution  results,  and  its  ability  to  use  only  one  of  its  impulse  responses  to 
extract  the  majority  of  the  edges.  The  second-order  set  of  impulse  re¬ 
sponses  is  deemed  superior  to  the  first-order  responses  because  of  the  sec¬ 
ond  order’s  high  resolution  edge  extraction. 
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Figure  65.  Original  image  used  for  edge  detection  example 


Figure  66.  Result  of  pixel  difference  row  windowed  convolution 
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Figure  67.  Result  of  pixel  difference  column  windowed  convolution 


Figure  68.  Result  of  separated  difference  row  windowed  convolution 
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Figure  69.  Result  of  separated  difference  column  windowed  convolution 


Figure  70.  Result  of  Sobel  row  windowed  convolution 


60 


Chapter  5  Detecting  Edges 


Figure  71 .  Result  of  Sobel  column  windowed  convolution 


Figure  72.  Result  of  Roberts  row  windowed  convolution 
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Figure  73.  Result  of  Roberts  column  windowed  convolution 


Figure  74.  Result  of  Prewitt  row  windowed  convolution 
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Figure  75.  Result  of  Prewitt  column  windowed  convolution 


Figure  76.  Result  of  Frei-Chen  row  windowed  convolution 
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Figure  77.  Result  of  Frei-Chen  column  windowed  convolution 
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Figure  78.  Result  of  Nevatia-Babu  row  windowed  convolution 
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Figure  79.  Result  of  Nevatia-Babu  column  windowed  convolution 


Figure  80.  Result  of  Laplace  four  neighbor  windowed  convolution 
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Figure  81 .  Result  of  Prewitt  eight  neighbor  windowed  convolution 


Figure  82.  Result  of  separable  eight  neightbor  windowed  convolution 
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6  Crispening  Images 


Abstract 


Image  “crispening”  is  a  subjective  enhancement  technique.  This  chap¬ 
ter  discusses  three  crispening  masks  and  their  implementation. 


Introduction 

Crispening  is  useful  in  sharpening  images  that  are  slightly  blurred. 
The  implementation  relies  on  a  windowed  convolution,  as  discussed  in 
Chapter  5. 


Theory 

Table  6  contains  three  crispening  masks  (Pratt  1991): 


Table  6 

Crispening  3x3  Impulse  Responses 


Mask  1 

0-10 

Mask  2 

-1  -1  -1 

Mask  3 

-1  5  -1 

-1  9  -1 

0-10 

-1  -1  -1 

Again,  the  windowed  3x3  convolution  is  performed  as  follows: 

G(j,k)  =  H( 0,0)  *  F{j- 1,*-  1)  +  H( 0, 1)  *  F(j—  l,Jt) 

+  H(0,2)*F(j-l,k+l)  +  H(l,0)  *  F(j,k~  1) 

+  H(l,  1)  *  F(j,  k )  +  H{  1,2)  *  F(j,  k  +  1)  (45) 

+  H(2,Q)  *  F(j+  l,k-  1)  +  H(2, 1)  *  F(j+l,k) 

+  H(2, 2)  *  F(j+  l,k+  1) 

Reflection  is  used  to  replace  missing  pixels  at  image  borders. 
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Implementation 


The  code  in  Appendix  M  performs  the  windowed  convolution  with  any 
odd  order  square  impulse  response.  A  “bias_flag”  of  0  is  needed  to  dis¬ 
able  histogram  biasing.  All  computation  is  done  in  conventional  memory. 
Internal  and  external  files  are  binary  or  standard  RGB.  As  the  windowed 
convolution  is  performed,  the  screen  is  updated. 


Results 


Figure  83  contains  the  original  image.  Figures  84-86  contain  the  re¬ 
sults  of  applying  masks  1-3,  respectively.  The  second  mask  proved  to  be 
the  strongest,  and  the  third  mask  proved  to  be  the  weakest. 


Conclusions 


Image  crispening  is  purely  a  subjective  adjustment.  Limited  blur  re¬ 
moval  can  be  performed  with  the  following  masks,  ordered  according  to 
strength:  mask  2,  mask  1,  and  mask  3. 
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Figure  86.  Example  1 ,  result  of  mask  3  application 
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7  Noise  Cleaning 


Abstract 

Noise  cleaning  is  a  simple  method  used  to  isolate  and  remove  noise 
from  an  image.  This  chapter  discusses  three  noise-cleaning  masks  and 
their  implementation. 


Introduction 


Noise  commonly  consists  of  high  2-D  frequency  components  because  it 
is  not  correlated  with  the  image  it  is  preying  upon.  The  noise  cleaning 
takes  advantage  of  this  fact  by  means  of  a  windowed  convolution. 


Theory 


Table  7  shows  three  noise-cleaning  masks  (Pratt  1991): 


Table  7 

Noise  Cleaning  3x3  Impulse  Responses 


Mask  t 

1/9 

1/9 

1/9 

Mask2 

1/10 

1/10 

1/10 

Mask  3 

1/16 

1/8 

1/16 

1/9 

1/9 

1/9 

1/10 

1/5 

1/10 

1/8 

1/4 

1/8 

1/9 

1/9 

1/9 

1/10 

1/10 

1/10 

1/16 

1/8 

1/16 
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Again,  the  windowed  3x3  convolution  is  performed  as  follows: 


G{j,k)  =  H( 0,0)  *  F(j—  l,k-  1)  +  H{ 0, 1)  *  F(j-  1,*) 

+  H(0, 2)  *  F(j-  \,k  +  1)  +  H(l,0)  *  F(j,k-  1) 

+  //(l,  1)  *  F(j,  k)  +.  H(  1 , 2)  *  F(j,  k+  1)  (46) 

+  H(2, 0)*  F(j+\,k-\)  +  H(2, 1)  *  F(j+  l,k) 

+  H(2,  2)  *  F(j+  1,^+1) 

Reflection  is  used  to  replace  missing  pixels  at  image  borders. 


Implementation 

The  code  in  Appendix  M  performs  the  windowed  convolution  with  any 
odd  order  square  impulse  response.  A  “bias_flag”  of  0  is  needed  to  dis¬ 
able  histogram  biasing.  All  computation  is  done  in  conventional  memory. 
Internal  and  external  files  are  binary  or  standard  RGB.  As  the  windowed 
convolution  is  performed,  the  screen  is  updated. 


Results 


Figure  87  contains  the  original  image.  Figures  88-90  contain  the  re¬ 
sults  of  applying  masks  1-3,  respectively.  All  three  masks  seem  to  have 
approximately  the  same  strength. 


Conclusions 

In  some  cases,  noise  cleaning  can  be  used  to  remove  noise  from  an 
image.  When  applicable,  this  method  is  more  desirable  than  a  Fourier  rou 
tine  because  of  its  simplicity. 
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Figure  88.  Example  2,  result  of  mask  1  application 
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Figure  90.  Example  2,  result  of  mask  3  application 
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8  Image  Thresholding 


Abstract 


Image  thresholding  in  some  cases  can  be  used  to  enhance  images  and 
in  other  cases  can  be  used  to  preprocess  an  image  in  order  to  increase  the 
effectiveness  of  other  enhancement  techniques.  This  chapter  discusses 
two  thresholding  techniques  and  their  implementation. 


Introduction 


For  some  images,  scratches  and  spots  are  isolated  in  value  from  the  rest 
of  the  pixels.  In  these  instances,  thresholding  by  value  can  remove  the 
blemishes.  For  other  images,  there  may  be  a  certain  pixel  value  that  has  a 
low  occurrence  rate  that  hinders  the  full  effect  of  some  enhancement  tech¬ 
nique;  thresholding  by  occurrence  serves  as  a  remedy. 


Theory 

Value  thresholding  allows  all  pixels  within  a  certain  value  range  to  re¬ 
tain  their  value;  pixels  above  this  range  are  set  to  the  high  end  value  of  the 
range,  and  pixels  below  the  range  are  set  to  the  low  end  value. 

Occurrence  thresholding,  first,  requires  a  histogram  of  the  image.  With 
this  histogram,  all  pixel  values  with  an  occurrence  below  a  certain  thresh¬ 
old  value  can  be  remapped  to  one  that  has  an  occurrence  above  the  thresh¬ 
old  value.  The  new  pixel  value  will  always  be  the  nearest  pixel  value  (in 
the  direction  of  the  maximum  occurrence  pixel)  that  complies  with  the 
threshold. 
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Implementation 


The  code  in  Appendix  N  performs  thresholding  by  value.  All  computa¬ 
tion  is  done  in  conventional  memory.  Internal  and  external  files  are  bi¬ 
nary  or  standard  RGB. 

The  code  in  Appendix  O  performs  thresholding  by  occurrence;  it  uses 
the  Victor  Library  to  provide  extended  memory  management  (Catenary 
Systems  1992).  Internal  and  external  files  are  binary  or  standard  RGB. 


Results 

First,  value  thresholding  was  tested.  Figures  91  and  92  contain  the 
original  image  and  its  histogram,  respectively;  Figures  93  and  94  contain 
the  resulting  image  along  with  its  histogram. 

Next,  occurrence  thresholding  was  tested.  Figures  95  and  96  show  the 
resulting  image  as  well  as  its  histogram. 

For  both  cases,  the  histogram  proves  that  the  techniques  work  as  de¬ 
scribed  in  the  theory.  The  displayed  percentage  on  the  histogram  tells  the 
percentage  of  pixels  that  possess  the  maximum  occurring  value. 


Conclusions 


Image  thresholding  is  a  simple  process  that  can  be  used  to  enhance  im¬ 
ages  as  well  as  preprocess  images  to  increase  the  effectiveness  of  other  en¬ 
hancement  techniques. 
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Figure  91.  Original  image  before  thresholding 


Figure  92.  Histogram  of  original  image  before  thresholding 
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Figure  93.  Result  of  value  thresholding 


Figure  94.  Histogram  of  value  thresholding  result 
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Figure  95.  Result  of  occurrence  thresholding 


Figure  96.  Histogram  of  occurrence  thresholding  result 
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9  Contrast  Manipulation 


Abstract 

Contrast  can  be  manipulated  both  subjectively  and  objectively.  This 
chapter  discusses  both  manipulations  and  their  implementation. 


Introduction 

Subjective  contrast  manipulation  consists  of  shading  adjustments  by 
means  of  linear  or  nonlinear  re-orderings  of  a  given  histogram.  Outcomes 
can  be  more  or  less  appealing  than  the  original. 

Objective  contrast  manipulation  involves  respacing  a  histogram  such 
that  maximum  equalized  contrast  can  be  achieved.  This  method  can  be 
described  as  an  image  extraction. 


Theory 


Table  8  contains  equations  to  describe  six  types  of  subjective  contrast 
manipulations  (Pratt  1991).  In  each  procedure,  the  pixel  must  be  converted 


Table  8 

Subjective  Contrast  Manipulation  Equations 

Square 

new _pixeHpixei/255.0)2*25S.0 

Cube 

new _pixeHpixei/25S.0)9*255.0 

Square  root 

new _pixeHpixei/2S5.0)1/z*2S5.0 

Cube  root 

new _pixeHpixetf255.0)1/3*2S5.0 

Inverse 

new jpbteHpixel/255.0)'1 ,  pixeMO 
new_pixeW55.0.  pixel-0 

Invert 

newjaixeHl  ,0-pixel/255.0)*255.0 
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to  a  fraction  between  0  and  1;  then,  the  result  is  manipulated  and  finally 
reweighted. 

Objective  contrast  manipulation  takes  an  image  that  has  an  upper 
pixel  value  below  255  and/or  a  lower  pixel  value  above  zero  and  spreads 
out  the  histogram  as  evenly  as  possible  to  create  an  image  with  an  upper 
value  of  255  and  a  lower  value  of  0  (Pratt  1991).  This  procedure  is  com¬ 
monly  used  to  extract  information  from  satellite  and  airplane  reconnais¬ 
sance  photos. 


Implementation 

The  code  in  Appendixes  P,  Q,  R,  S,  T,  and  U  performs  the  following 
subjective  contrast  manipulations,  respectively:  square,  cube,  square  root, 
cube  root,  inverse,  and  invert.  All  computation  is  done  in  conventional 
memory.  Internal  and  external  files  are  binary  or  standard  RGB. 

The  code  in  Appendix  V  performs  image  extraction;  it  uses  the  Victor 
Library  to  provide  extended  memory  management  (Catenary  Systems 
1992).  Internal  and  external  files  are  binary  or  standard  RGB. 


Results 


First,  the  subjective  contrast  manipulation  techniques  were  tested.  Fig¬ 
ures  97  and  98  contain  the  original  image  and  its  histogram.  Figures  99 
and  100  contain  the  results  of  the  squaring  method;  as  can  be  seen,  the  his¬ 
togram  is  shifted  nonlinearly  toward  pixel  value  0.  The  results  of  the  cub¬ 
ing  method  are  shown  in  Figures  101  and  102;  the  histogram  is  shifted 
toward  0  more  dramatically  than  the  square  method’s.  Figures  103  and 
104  contain  the  results  of  the  square  root  method;  the  histogram  is  shifted 
nonlinearly  toward  pixel  value  255.  The  cube  root  results  have  a  more 
pronounced  shift  toward  255,  as  shown  in  Figures  105  and  106.  Figures 
107  and  108  show  the  results  of  the  inverse  (1/x)  method;  the  results  show 
that  this  method  has  a  strong  tendency  to  darken  the  image.  The  results  of 
the  inverting  method  are  shown  in  Figures  109  and  110;  the  corresponding 
histogram  is  a  mirror  image  of  the  original. 

Next,  image  extraction  was  tested.  To  demonstrate  the  usefulness  of 
this  method,  the  original  image  was  chosen  to  be  the  Prewitt  Eight  Neigh¬ 
bor  second-order  edge-detection  results.  Figures  111  and  112  show  the 
original  and  its  histogram.  Before  performing  the  extraction,  occurrence 
thresholding  was  performed,  as  shown  in  Figures  113  and  114.  The  final 
extraction  results  are  shown  in  Figures  1 15  and  116. 
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Conclusions 


The  most  powerful  contrast  manipulation  tool  is  image  extraction;  it 
can  increase  the  resource  value  of  an  image  that  has  extremely  dull  con¬ 
trasts.  Other  contrast  manipulation  methods  are  purely  subjective  adjust¬ 
ments. 
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Figure  97.  Original  image  before  contrast  manipulation 


Figure  98.  Histogram  of  original  image  before  contrast  manipulation 
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Figure  101.  Result  of  cube  method 


Figure  102.  Histogram  of  cube  method  result 
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Figure  106.  Histogram  of  cube  root  method  result 


Chapter  9  Contrast  Manipulation 


87 


Figure  107.  Result  of  inverse  (1/x)  method 


Figure  108.  Histogram  of  inverse  (1/x)  method  result 
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Figure  109.  Result  of  inverting  method 


Figure  110.  Histogram  of  inverting  method  result 
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Figure  111.  Original  image  before  image  extraction 


Figure  1 12.  Histogram  of  original  image  before  image  extraction 
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Filtering 


Abstract 

The  Median  Filter  is  unlike  other  noise-cleaning  tools  in  that  it  is  not  a 
true  low-pass  filter.  This  chapter  discusses  both  the  theory  and  implemen¬ 
tation  of  this  filter. 


Introduction 


The  Median  Filter  was  developed  by  J.  W.  Turkey,  as  a  noise-suppression 
tool  (Pratt  1991);  however,  it  is  not  a  general  purpose  filter  because  it  has 
no  distinct  frequency  or  correlation  basis.  This  method  is  merely  a  spatial 
manipulation  that  uses  the  mathematical  median  in  an  attempt  to  attenuate 
noise.  In  some  cases,  the  ideal  image  becomes  suppressed,  especially 
when  the  image  has  low  correlation  from  pixel  to  pixel  (Pratt  1991).  Also, 
resolution  is  usually  diminished  as  a  result  of  using  the  Median  Filter 
(Pratt  1991). 


Theory 


The  mathematical  median  is  defined  as  the  value  of  the  middle  member 
of  an  odd-membered  sorted  set,  as  shown: 


S  = 


xvx2,x3. 


such  that  N  e  odd  intergers  and  S  is  sorted  (47) 

MEDIAN  {S}  =  X(N+l)/l 

For  an  image,  a  windowing  algorithm,  much  like  the  windowed  convolu¬ 
tion,  is  used.  However,  instead  of  performing  the  convolution,  the  median  is 
found  for  each  window. 
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Implementation 


The  code  in  Appendix  W  performs  a  windowed  implementation  of  the 
Median  Filter.  All  computation  is  done  in  conventional  memory.  Internal 
and  external  files  are  binary  or  standard  RGB.  Sorting  is  performed  with 
a  standard  bubble  sort. 


Results 

For  comparison,  the  Median  Filter  was  tested  on  the  same  image  that 
the  noise-cleaning  masks  were  tested.  The  original  image  and  its  histo¬ 
gram  are  located  in  Figures  117  and  118;  the  results  of  the  Median  Filter 
and  the  corresponding  histogram  are  shown  in  Figures  119  and  120.  The 
resulting  image  is  noticeably  blurred;  however,  the  noise  has  been  re¬ 
duced.  In  comparison  with  the  noise-cleaning  masks,  the  Median  Filter  is 
inferior  because  of  its  heavy  loss  of  resolution. 


Conclusions 

The  Median  Filter  in  most  cases  is  an  undesirable  method  for  noise  re 
moval,  since  noise-cleaning  masks  provide  a  reliable  tool. 
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1 1  Video  Conferencing  Using 
Personal  Computers 


Abstract 

Video  conferencing  using  PCs  requires  digital  control  of  a  video  signal, 
an  audio  signal,  and  a  connection  network.  This  chapter  discusses  the  im¬ 
plementation  and  application  of  all  three  controls. 


Introduction 


For  the  past  few  years,  interest  in  video  communication  has  swelled,  in¬ 
fluencing  the  invention  of  videophones.  Although  these  phones  allow 
users  to  see  as  well  as  hear  others,  they  cost  approximately  $2,500  per 
phone  and  take  several  seconds  to  transmit  a  single  still  frame  image.  Sys¬ 
tems  that  send  and  receive  continuous  video  usually  require,  as  a  mini¬ 
mum,  a  dedicated  PBX  as  a  central  control  unit,  costing  approximately 
$200,000,  in  addition  to  the  cost  of  each  desktop  station  at  approximately 
$18,000,  or  more. 

During  the  summer  of  1993,  a  design  team  at  WES  developed  a  proto¬ 
type  PC  video-conferencing  system  with  a  $1,000  price  tag  per  node,  re¬ 
quiring  no  overhead  control  unit  such  as  a  PBX.  The  system  provides 
one-way  video  and  audio  communication  over  the  WES  ethernet  network 
and  was  developed  as  a  prototype  system  for  incorporation  and  demonstra¬ 
tion  of  the  high  level  image  compression  and  image  restoration  techniques 
developed  within  the  WES  Information  Technology  Laboratory  (ITL)  during 
FY92  and  FY93.  It  is  anticipated  that  the  use  of  these  sophisticated  imag¬ 
ing  algorithms  will  allow  the  prototype  video-conferencing  system  to  be 
developed  into  a  fully  functional  system,  complete  with  higher  resolution, 
lower  bandwidth  requirements,  multiway  conferencing,  split  screens,  se¬ 
cure  video-conference  sessions,  video  mail,  and  many  other  features.  The 
video  frame  is  currently  160x100  pixels  in  size  and  is  refreshed  at  12  times 
per  second,  demanding  a  1.5  Mbits/s  transfer  rate.  The  audio  is  sampled 
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at  8,000  times  per  second  and  sent  at  64  Kbits/s.  All  pixels  and  audio 
samples  are  8  bits  long. 

The  sample  output  in  Fif-.e  121  shows  the  video  conferencing  system 
used  in  a  split  screen  configuration. 


Figure  121.  Typical  video  conferencing  screen  used  for  split  mode  operation 


Implementation 


Two  486/33MHz  machines  were  used,  one  as  a  transmitter,  the  other  as 
a  receiver.  Table  9  lists  the  critical  system  components  for  each  machine. 


Table  9 

List  of  Components 

TeMiamK  fW» 

irvnmn  r\* 

nRVVvV  rv 

3C503  Ettiemet  Card 

Western  Digital  Ethernet  Card 

FTP.  Inc.,  TCP/IP  Kamel 

FTP,  Inc.,  TCP/IP  Kernel 

Sound  Biester  Pro  16  Card 

Sound  Blaster  Pro  16  Card 

Video  Graphics  Adapter  Card 

Video  Graphics  Adapter  Card 

New  Media  Graphics  Video  Card 

Speaker 

NTSC  Home  Video  Camera 

Mtefophont 
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Appendix  X  contains  the  code  for  the  transmit  PC,  and  Appendix  Y  con¬ 
tains  the  code  for  the  receive  PC.  The  FTP  kernel,  by  FTP,  Inc.,  was  used 
as  the  communication  driver  to  the  ethemet  board.  Appendix  Z  contains 
an  alternate  receiver  algorithm  that  uses  a  packet  driver  interface  rather 
than  the  FTP  kernel  software  (the  packet  driver  specifications  are  located 
in  Appendix  BBB.)  The  code  in  Appendix  Z  can  be  run  on  multiple  PCs 
simultaneously  to  view  the  images  sent  by  a  single  transmitting  station. 

The  alternate  receiver  algorithm  temporarily  reprograms  the  local  ethemet 
card  to  trick  it  into  accepting  packets  sent  to  the  main  receiving  station. 

Together,  all  hardware  and  software  components  provide  one-way  video 
and  audio  communication.  The  transmit  program  sends  video  packets  cap¬ 
tured  from  the  camera  by  the  New  Media  Graphics  Video  Card  and  audio 
captured  from  the  microphone  by  the  Sound  Blaster  Pro  16  Card;  the 
audio  is  transmitted  every  l/8th  second,  which  is  the  time  required  to  accu¬ 
mulate  1,000  bytes  of  audio.  The  video  is  transmitted,  two  scan  lines  at  a 
time,  between  audio  samples.  The  time  delay  for  both  the  audio  and  the 
video  is  approximately  l/8th. 

The  function  A  VgrabTo Bitmap,  in  Appendix  X,  captures  NTSC  frames 
from  a  home  video  camera  and  records  them  in  hbuf,  a  buffer  located  in 
PC  RAM.  Since  the  color  format  is  4:1:1  YUV,  every  other  byte  of  hbuf 
is  copied  to  buffer  in  order  to  isolate  the  luminance.  Once  buffer  is  filled 
with  320  bytes  or  two  scan  lines,  the  function  netjwrite  sends  buffer's  con¬ 
tents  in  a  UDP  packet  over  the  ethemet.  A  single  byte  header  is  provided 
in  the  packet  to  tell  the  receiving  PC  the  row  position  of  the  two  scan 
lines. 

Currently,  this  transmitting  method  uses  subsampling  to  reduce  the  re¬ 
quired  transmission  rate.  However,  a  DSP  chip  may  be  included  to  per¬ 
form  various  Fourier  compression  methods  to  allow  enhanced  resolution 
and  increased  frame  rates. 

The  function  ctvm_input  initializes  digitizing  sound  capture  from  an  an¬ 
alog  microphone  to  a  1 ,024-byte  digital  PC  RAM  buffer  superbuf.  The 
first  16  bytes  and  last  4  bytes  are  used  for  header  and  trailer  storage. 

Every  0.1 25  sec,  superbuf  is  filled  and  transmitted.  Due  to  a  design  flaw 
in  the  Sound  Blaster  Card,  the  sound  information  must  be  processed  with 
a  raised-cosine  filter,  which  is  optimal.  The  flaw  is  exposed  in  the  receive 
Sound  Blaster.  With  an  oscilloscope,  a  7-msec  pasting  delay  between  con¬ 
secutive  sound  packets  was  measured.  This  delay  causes  a  sharp  clicking 
sound,  which  is  attenuated  with  the  raised-cosine  filter.  Equation  48  de¬ 
scribes  the  filter’s  transfer  function,  and  Equation  49  describes  the  filter’s 
impulse  response  (Couch  1983). 
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The  receive  program  displays  video  packets  in  a  standard  VGA  mode 
(320x200  resolution,  256  colors).  Since  only  the  luminance  is  received, 
the  display  is  limited  to  64  shades  of  gray.  All  packets  with  a  length  less 
than  700  bytes  are  considered  to  be  video  packets  and  are  written  to  the 
first  65,536-byte  video  memory  bank,  which  begins  at  address  OAOOOh. 
Packets  longer  than  700  bytes  are  deemed  sound  packets  and  are  sent  to 
the  Sound  Blaster  Board,  which  in  turn  drives  the  speaker.  (A  125-msec 
delay  exists  between  the  transmit  and  receive  sound.)  A  triple  buffer  sys¬ 
tem  is  used  to  prevent  sound  and  video  packet  overwrites.  Video  images 
can  be  saved  to  hard  drive  and  displayed  by  pressing  ‘2’,  ‘3’,  or  ‘4’.  4Z’ 
exits  the  program. 


Table  10 

Enhancement  Goals 

i 

2-way  conference 

2 

24-bit  SVGA  color  (VESA  standard) 

3 

Multicast  network  connectivity 

4 

Implementation  of  MPEG  compression 

S 

Frame  rate  increase  to  30  frames/sec 

6 

Lower  required  transmission  rate 

Future  Improvements 

Enhancement  goals  are  listed  in 
Table  10.  Two-way  conferencing  will 
require  both  the  transmit  and  receive 
programs  to  be  modified  into  a  com¬ 
mon  unit.  A  24-bit  SVGA  card  as  well 
as  code  enhancements  are  needed  to 
provide  full  display  color.  Multicast 
connectivity  will  allow  multiple  users 
to  participate  in  a  single  conference. 
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Using  a  DSP  chip  for  real  time  processing,  the  high-level  compression  and 
enhancement  techniques  developed  at  WES  during  FY92  and  FY93  can  be 
implemented;  these  techniques  can  be  extended  to  three-dimensions  to 
take  advantage  of  video  frame  redundancies.  Such  data  reduction  will 
allow  the  frame  rate  to  increase  to  perhaps  30  frames/second.  Also,  the 
required  transmission  rate  should  reduce. 
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12  IMAGE93  Software 


Abstract 


This  chapter  details  the  attributes  of  the  IMAGE93  Software,  engineered 
at  WES  ITL. 


Introduction 


During  FY92,  “Image  Lab”  was  written  to  facilitate  the  construction  of 
image-compression  algorithms.  As  an  extension,  in  FY93,  IMAGE93  was 
created  to  preserve  the  capabilities  of  Image  Lab  and  to  exploit  numerous 
combinations  of  image-enhancement  algorithms. 


Implementation 

Figure  122  contains  an  outline  of  the  IMAGE93  software.  Executables 
end  in  exe,  and  source  files  end  in  either  bas  or  c.  All  other  files  are  ASCII 
storage  files.  Tables  11  and  12  map  sources  files  with  the  corresponding 
appendixes  (A,  B,  and  D-AAA).  Appendix  CCC  lists  the  specifications 
for  VESA  Graphics  Interface. 
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OOTLXmt  OF  XM&GE  93 


Figure  122.  Outline  of  IMAGE93  (Sheet  1  of  4) 


laapa.aaa  (bei.bu) 
gray. pal 

color .pal 

▼asa.lai 

t«u1  .  m«  {nul .  c) 

diiplty.u*  (display. c) 
display. aaa  (display. o) 
peaload.aaa  (peaload. c) 
(lataraal  to  laaga.oaa) 
(lntaraal  to  laaga.o so) 
peatobia.aaa  (peatobln.e) 
prlotb.oss  (prlatb.o) 

chop. aza  ( chop . c) 
bltplaaa.aaa  (bltplaaa.o) 
bltplana . axa  (bltplaaa.o) 
bltplaaa.aaa  (bltplaaa.o) 
bltplaaa.aaa  (bltplaaa.o) 
bltplaaa.aaa  (bltplaaa.o) 
diffar .saa  (diffar.c) 
addar.aaa  (addsz.c) 
lookoaa.aaa  (lookooa.o) 
looktwo.aaa  (looktao.o) 
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Figure  122.  (Sheet  2  of  4) 
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Prowitt  Coli 


prowittc 

fez 


Figure  122.  (Sheet  3  of  4) 
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Figure  122.  (Sheet  4  of  4) 
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Table  11 

Location  of  Source  Files  According  to  Appendix 

Appendix  A 

svd.c 

Appendix  DO 

pcxioad.c 

Appendix  B 

invsvd.c 

Appendix  EE 

pcxtobin.c 

Appendix  D 

dftx 

Appendix  FF 

printb.c 

AppendixE 

invdftc 

Appendix  GG 

chop.c 

Appendix  F 

fftc 

Appendix  HH 

bitpiane.c 

Appendix  G 

invfttc 

Appendix  II 

differ  .c 

Appendix  H 

edftdftc 

Appendix  JJ 

adder.c 

Appendix  1 

dB.c 

Appendix  KK 

lookone.c 

Appendix  J 

erode. c 

Appendix  LL 

looktwo.c 

Appendix  K 

dose.c 

Appendix  MM 

paste  .c 

Appendix  L 

open.c 

Appendix  NN 

huff.c 

AppervfxM 

maskx 

Appendix  00 

ahuff.c 

Appendix  N 

thresbyv.c 

Appendix  PP 

arith.c 

Appendix  0 

thresbyo.c 

Appendix  QQ 

artthl.c 

ApperxfixP 

squareh.c 

Appendix  RR 

arithn.c 

Appendix  Q 

cubeh.c 

Appendix  SS 

unhuff.c 

Appendix  R 

sqrthx 

Appendix  TT 

aunhuffx 

ApperxixS 

cuberth.c 

Appendix  UU 

unarithx 

Appendix  T 

invh.c 

Appendix  W 

unarithlx 

Appendix  U 

revh.c 

Appendix  WW 

unarithnx 

Appendix  V 

extract  c 

Appendix  XX 

dele 

Appendix  W 

medianx 

Appendix  YY 

entropy  x 

Appendix  AA 

box.bas 

Appendix  ZZ 

msex 

Appendix  B6 

veasi.c 

Appendix  AAA 

histox 

Appendix  CC 

dispiay.c 
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Table  12 

Location  of  Source  Files  According  to  Filename 

adder.c 

Appendix  JJ 

invfftx 

Appendix  G 

ahuff.  c 

Appendix  00 

Invh.c 

AppendixT 

arith.c 

Appendix  PP 

irrvsvd.c 

Appendix  B 

artthi.c 

AppendxQQ 

lookone.c 

Appendix  KK 

artthn.c 

Appendix  RR 

looktwo.c 

Appendix  LL 

aunhuff.c 

Appendix  TT 

mask.c 

Appendix  M 

bitplane.c 

Appendix  HH 

median.c 

Appendix  W 

box.bas 

Appendix  AA 

mse.c 

Appendix  ZZ 

chop.c 

Appendbc  GG 

open.c 

AppenducL 

dose.c 

Appendix  K 

paste. c 

Appendix  MM 

cubehx 

AppendbcQ 

podoad.c 

Appendix  DD 

cuberth.c 

Appendbc  S 

pcxtobin.c 

Appenduc  EE 

dcLc 

Appendix  XX 

prtrrtb.c 

Appendix  FF 

dfLc 

Appendix  D 

revti.c 

Appendix  U 

dffierx 

Appendbc  II 

aquareh.c 

AppenducP 

tS.c 

Appendix  1 

sqrth.c 

Appendix  R 

kfispiayx 

Appendix  CC 

svd.c 

Appendbc  A 

edttdfLc 

Appendix  H 

thresbyv.c 

Appendix  N 

entropy  .c 

Appendix  YY 

thresbyo.c 

Appendix  0 

erode.c 

Appendix  J 

unarith.c 

Appendbc  UU 

extract,  c 

Appendix  V 

unartthi.c 

Appendix  W 

flic 

AppendbcF 

unarithn.c 

Appendix  WW 

histo.c 

Appendix  AAA 

unhuffx 

Appendix  SS 

huff.c 

Appendbc  NN 

vesal.c 

Appendix  BB 

invdflx 

Appendix  E 
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13  The  Clear  Speech 
Algorithm 


A  clear  speech  algorithm  was  developed  around  sigma-delta  technology 
to  provide  a  means  of  using  the  PC  speaker  to  reproduce  intelligible 
speech  and  music.  This  problem  results  from  the  fact  that  the  PC  speaker 
can  be  driven  only  from  binary  high  and  low  pulses.  The  sigma-delta 
modulation  technique  has  been  recently  used  in  the  electronics  industry 
for  high  resolution  analog-to-digital  converters  and  can  also  help  improve 
the  quality  of  sound  from  a  PC  speaker  on  an  IBM  compatible  machine. 

A  model  of  the  sigma-delta  modulator  using  two  digital  integrator 
stages  is  shown  below.  For  the  PC  application,  the  input  voltage,  Vin,  is 
8-bit  per  byte  digitized  sound  which  is  either  played  back  from  a  hard  disk,  . 
or  received  over  the  network  and  pumped  into  the  sigma-delta  modulator. 
V5  is  the  output  voltage  of  the  sigma-delta  modulator  and  is  either  a  bi¬ 
nary  low  or  high.  The  other  elements  shown  in  Figure  123  are  summers 
and  delays.  The  following  explanation  will  assume  an  extensive  familiar¬ 
ity  with  network  theory. 


Figure  123.  Sigma-delta  modulator 

By  using  the  Fourier  transform,  it  can  be  shown  that  the  binary  output 
voltage,  V5,  has  the  same  exact  spectral  makeup  as  the  input  voltage,  Vin, 
except  for  the  addition  of  some  high  frequency  spectral  noise.  In  practice. 
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the  sampling  rate  on 
a  PC  should  be  cho¬ 
sen  so  that  this  quan¬ 
tization  noise  is 
pushed  above  the  au¬ 
dible  region.  In  this 
case,  the  perceived 
audio  sound  from 
the  PC  speaker  will 
be  a  high-fidelity  re¬ 
production  of  the 
original.  For  analy¬ 
sis,  the  equations  that  de¬ 
scribe  the  operation  of  the 
sigma-delta  modulator  in 
Figure  123  can  be  written 
as  shown  in  Table  13.  By 
simulating  and  collecting 
hundreds  of  samples  of  the 
output  voltage  VS,  a  Fou¬ 
rier  transform  analysis  can 
be  performed  to  examine 
the  spectral  purity  of  the 
output  signal  V5  driving 
the  PC  speaker.  It  is  a 
given  that  the  input  signal 
is  a  pure  sine  wave  at 
5, OOO-Hz  frequency.  Fig¬ 
ure  124  shows  typical 
sigma-delta  spectral  output 
and  can  be  reproduced  by  using  the  Fourier  transform  equations  given  by 


Figure  124.  Typical  L-A  spectral  output  at 

location  V5  before  lowpass  filtering, 
for  a  single  sine  wave  input  of 
5,000  Hz 


Table  13 

Sigma-Delta  Modulator  Operations 

Operation 

Equation 

Vin 

sin<2*3.1 41 59*5000*i/fs),  i  -  0.1 . 4999:  fs  -  5000 

VI 

Vm  -  V5 

V2 

V2  +  V1 

V3 

V2-V5 

V4 

V3  +  V4 

V5 

2  if  V4  is  greater  than  or  equal  to  0. 

V5 

•2  if  V4  is  less  than  0. 

mth  harmonic  energy  indb  =  10  log  10  (am2  +  bm2) 
where 
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When  tested  on  an  IBM-compatible  486/33Mhz  PC,  the  sampling  rate  was 
allowed  to  run  as  fast  as  possible  and  was  timed  at  200,000  samples  per 
second.  The  equations  in  Table  13  were  executed  200,000  times  each  sec¬ 
ond.  The  sound  reproduction  was  highly  intelligible  but,  as  expected, 
the  PC  speaker  volume  was  low.  As  part  of  an  actual  application,  the 
clear  speech  algorithm  might  also  be  handicapped  by  the  need  for  the 
microprocessor  to  perform  other  tasks  as  well.  The  significance  of  this 
technique  is  that  any  networked  PC  with  a  VGA  monitor  can  be  set  up  to 
receive  real-time  video  and  audio  using  software  only,  since  the  VGA 
monitor  can  be  written  in  real  time  to  update  the  video  image,  and  the 
built-in  PC  speaker  can  be  made  to  reproduce  intelligible  sound.  The  addi¬ 
tion  of  a  dedicated  sound  board,  such  as  a  sound  blaster,  in  the  PC  would, 
of  course,  offset  the  sound  processing  and  provide  volume  control.  The 
addition  of  a  video  capture  card  in  the  same  PC  would  also  allow  that  PC 
to  originate  video  and  audio  transmission  over  the  network  for  full  partici¬ 
pation  in  a  video-conference  session. 

The  demonstration  program  shown  in  Figure  1 25  reads  a  sound  blaster 
.VOC  file  and  plays  it  using  the  clear-speech  algorithm. 


fincluda  <atdio.h> 

char  d[ 400000); 

FILE  *infila; 

aain() 

< 

int  b,.,h, vo-C,vl,v2-0,v3,v4-0; 
long  int  j,k,n-0; 

/•Up  to  25  aaconda  of  Bound*/ 

unaignad  char  cp; 

inf ila-fopan(>TSNP. voc-, -r+b-) ; 
for  (j«l; 

( 

facanf (infila,-tc*,tcp) ; 

) 

whila  (Ifaof(infila)) 

{ 

f scant (inf ila,-tc*,4cp) ; 

/•Opan  Sound  Blaatar  VOC  fila*/ 

/•Skip  haadar  info*/ 

/•Sound  fllaa  should  bo*/ 

n++; 

d[n)  -  cp  -  lit; 

) 

b  -  inp(0x6l) ; 

/•Saaplad  at  4000  bytas  par  aacond*/ 
/•Subtract  12*  to  convart  VOC  fllaa*/ 

/•Cat  Byta  at  location  *1*/ 

/•Sat  Sound  bit  high*/ 

/•Sat  sound  bit  lov*/ 

/•Start  of  sigaa-Oalta  Loop*/ 

b  ■  B  |  l; 
a  ■  b  t  OxFD; 
for  (}-0;}<-n;}++) 

< 

for  (k-l;k<-4»;k++) 

/•Max  valua  of  K  say  vary*/ 

vl  -  d(j)  -  vo; 
v2  •  vl  +  v2; 
vl  •  v2  -  vo; 
v«  -  vl  ♦  v4; 
if  (V4>0) 

{ 

vo  -  -150; 

outp(0x61,b) ; 

T 

also 

{ 

vo  -  150; 

/•150  is  tvics  highast  axpactad*/ 

outp(Ox61,a) ; 

T 

> 

> 

fcloaaall(); 

T 

Figure  125.  Demonstration  program  using  the  ciear-speech  algorithm 
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Appendix  A  The  SVD  Processor 


The  SVD  Processor 


f inalude  <o : \c700\include\#tdio . h> 

# Inalude  <o:\c700\include\matb.h> 
f include  <o : \c700\inalude\malloc ,h> 

•include  <c : \c700\lnclude\viodaf e . h> 

•include  <c: \c700\include\vicf eta .h> 

•inalude  <c: \c700\lncluda\vioarror .b> 
iinoluda  <e: \c700\include\graph.h> 

/•Global#  begin*/ 

lnt  image , aqrt  eigenvala,  V, raault, moda, width, height; 
lnt  ouraeg, WIDTH1 , HEIGHT1 , _haigbt ; 
unalgnad  char  palbuf [256] [3] ; 
void  far  *p; 

FILS  * Infile; 

•tatlo  float  at.bt.ct; 

•define  PYTHAG (a, b)  ( (at-faba (a) )  >  (bt-faba(b))  ?  \ 

(ct-bt/at , at*aqrt (1.0+ct*ct) )  :  (bt  ?  (ct»at/bt, bt*aqrt (1 . 0+ct*ct) ) :  0.0)) 
atatle  float  maxargl,maxarg2; 

Idaflna  MAX (a, b)  (maxargl-(a) , maxarg2« (b) ,  (maxargl)  >  (maxarg2)  ?\ 
(maxargl)  :  (maxarg2) ) 

Idaflna  SIGN(a,b)  ((b)  >■  0.0  ?  fabs(a)  :  -fabs(a)) 

/•Global#  and*/ 

/•Error  handling  routina*/ 
void  nrarror (error_taxt ) 
char  error_text [ ] ; 

{ 

void  _exit(); 

fprlntf (atdarr , "Numerical  Raeipaa  run-time  arror. . -\n") ; 
fprlntf (atdarr, "%a\n” , arror_taxt) ; 
fprlntf (atdarr, -now  axltlng  to  ay at am. . .\n") ; 
xmf raa (imaga) ; 
xmfraa (aqrt_alganvala) ; 
xmf  raa  (V)  ; 
xmfraa (raault) ; 
fcloaa (lnflla) ; 
axlt(l); 

) 

/•Dynamic  memory  allocation*/ 
float  *vaetor (nl.nh) 
lnt  nl.nh; 

/•  allocate  a  float  vector  with  aubacript  range  v[nl..nh]  •/ 

{ 

float  *v; 

v» (float  *)aalloc( (unalgnad)  (nh-nl+1) *#i*eof (float) ) -nl; 

If  (fv)  nrerror ("allocation  failure  in  vector  O'); 
return  v; 

> 

/•Dynamic  memory  deallocation*/ 
void  free_vector (v, nl.nh) 
float  *v; 
lnt  nl.nh; 

/•  free  a  float  vector  allocated  with  vector ()  •/ 

{ 

free ( (char* )  (v+nl) ) ; 

) 
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/•Kxtandad  Maory  data  ratriaval*/ 
float  dgat (handla, indax_x, indax_y) 
lnt  handle, indax  x,indax_y; 

{ 

float  data; 
int  teat; 

teat*xagetrow(fidat a, handla, (lndax_x-l) *4, (indax_y-l) , 4,2880) ; 
if  (taat l“MO_*RROR)  { print f ("dgat  »i. *1. tl*. handla. lndax_x, Indax  y) ; 
getcharO ; ) 

raturn (data) ; 

) 

/*Kxtandad  memory  data  placement*/ 
void  dput (handla, indax_x, indax_y, data) 
int  handla , indax_x, index_y ; 
float  data; 

( 

float  dummy; 
int  taat; 

dummy  -  data; 

tastmxmputrow(£duamy, handla, (index_x-l)*4, (indax_y-l) ,  4,  2880) ; 
if  (tastt-NO_KRROR)  ( print f (* dput  %i, *i, %i”, handla, indax_x, indax_y) ; 
gatohar();)  ~ 

) 

/•Modified  Singular  Valua  Deoonpoaition  Algorithm*/ 
void  svdcmp(a,m,  n,w,v) 
int  a,w, v,m, n; 

( 

int  flag,  i,  ita,  j,  jj.lt,  1,  run; 
float  o,f,h,a,x,y,s,data,datal; 
float  anorm>0.0,g-0.0,aeala*0.0; 
float  *rvl, *vactor () ; 
void  nrarror ( ) , f raa_vaotor ( ) ; 

if  (m  <  n)  nrerror (-SVDCMP:  You  must  augmant  A  with  axtra  saro  ro *•') 
rvl«vactor (1, n) ; 
for  (i»l;i<-n;i++)  ( 

1-1+1; 

rvl [i] -acale*g; 

g— e-soale-0 . 0 ; 

if  (i  <»  m)  ( 

for  (k-i;k<-m;k++)  soala  +—  faba  (dgat  (a,k,  i) )  ; 
if  (soala)  { 

for  (k-i;k<-a;k++)  { 

data  -  dgat(a,k,i)/acala; 
dput  (a,  k,  i ,  data) ; 
a  +-  dgat  (a,  k,  i)  *dgat  (a,  k,  i)  ; 

) 

f-dget  (a,  i,  i) ; 

g  -  -SIGN (sqrt (a) , f ) ; 

h-f*g-a; 

data»f-g; 

dput (a, 1,1, data); 

if  (i  1-  n)  ( 

for  (J-l; j<-n;j++)  { 

for  (s-0.0,k-i;k<-m;k++) 

( 

a  +-  dgat (a,k, i)*dgat (a,k, j) ; 

) 

f-a/h; 
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for  (k»i;k<*«;k++) 

{ 

data  ■  dgat(a,k,3)+f*dget(a,k,i); 
dput  <a,k, J, data) ; 


for  (k-l;k<-m;k++) 

{ 

data  ■  dgat(a,k,l)  *  acala; 
dput (a, k, 1 , data) ; 


data  m  aoala*g; 
dput (w, 1,1, data) ; 

7»a~»cal«“0 . 0 ; 

if  (1  <-  m  st  l  t-  n)  { 

for  (k“l;k<"n;k++)  aoalo  +■  f aba (dgat (a, 1 ,  k) ) ; 

If  (aoala)  { 

for  (k“l;k<«n;k++)  { 

data  «  dgat (a, i,k) /acala; 
dput  (a,  t,  k,  data)  ; 
a  +-  dgat  (a,  1,  k)  *dgat  (a,  1,  k) ; 

) 

f-dgat  (a,  1, 1) ; 

g  «  -SIGN(aqrt  (a)  ,  f)  ; 

h«f*g-a; 

data«f-g; 

dput  (a,  1, 1,  data)  ; 

for  <k-l;k<«n;k++)  rvl[k]«dgat (a. i,k) /h; 

If  (1  I-  a)  ( 

for  (j»l;j<«m; J++)  { 

for  (a*0.0,k»l;k<«n;k+-O  a  +-  dgat  (a,  j,  k)  *dgat  (a,  1, k)  ; 
for  (k«l;k<«n;k++) 

{ 

data  *■  dgat  (a,  j,k)  +  a*rvl[k); 
dput (a, 3,  k,  data)  ; 

) 

) 

) 

for  (k«l;k<»n;k++) 

{ 

data  m  dgat (a, i,k)*acala; 
dput  (a,  1,  k,  data)  ; 

) 


ano rm-MAX ( ano rta ,  (faba  (dgat  (w, 1, 1) )  -ffaba  (rvl  [i] ) ) )  ; 

> 

for  (i»n;i>«l;i— )  {  V 

if  (1  <  n)  ( 
if  (9)  ( 

for  ( j«l; 3<«n; J++) 

( 

datal  -  (dgat  (a,  1,  3) /dgat  (a,  1, 1) ) /g; 
dput  (v,  j,  1,  datal)  ; 

} 

for  (3*1; j<-n; j++)  { 

for  (a»0.0,k»l;k<-n;k++)  a  +»  dgat (a, 1, k) *dgat (v,k, 3) ; 
for  (k»l;k<an;k++) 


datal  “  dgat(v,k, 3)  +  a*dgat (v, k, 1) , 
dput  (v,  k,  3 ,  datal) ; 
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) 

> 

for  ( j-1; j<«n; j++) 

t 

dotal  «  0.0; 
dput(v,i, 3, datal)  ; 
dput  (v,  J,  1,  datal)  ; 

) 

> 

datal-1.0; 

dput (v, i, 1, datal) ; 

g-rvl[l]; 

1-1; 

) 

for  (i-n;i>-l;i-)  { 

1-1+1; 

g-dgat (w, 1,1); 
if  (1  <  n) 

for  ( j-1; j<-n; j++) 

( 

data  -  0.0; 
dput  (a,  1,  j,data)  ; 

) 

(g)  { 

g— 1.0/g; 
if  (1  !—  n)  { 

for  (3-1; j<-n; j++)  ( 

for  (a-0.0,k-l;k<-n;k++)  a  +—  dgat (a, k, 1) *dgat (a, k, 3) ; 
f- ( a/dgat (a , 1 , 1 ) ) *g; 
for  (k-i;k<-a;k++) 

{ 

data  -  dgat (a, k, 3)  +  f*dgat (a, k, 1) ; 
dput  (a,  k,  3,  data)  ; 

) 

} 

> 

for  <3-1; 3<««; 3++> 

{ 

data  -  dgat (a, 3,1) *g; 
dput  (a,  3,1,  data)  ; 

) 

}  alaa  | 

for  (3-i;3<-«;3++) 

( 

data  -  0.0; 
dput (a, 3,1, data); 

) 

} 

data  -  dgat (a, 1,1)  +  1.0; 
dput (a, 1,1, data) ; 

) 

for  (k-n;k>-l;k— )  ( 

for  (ita-l;ita<-100;its++)  ( 
flag— 1; 

for  (l-k;l>-l;l— )  { 
niB-1-1; 

if  ((float) (tabs (rvl[l])+anora)  —  anorn)  { 
flag-0; 
braak; 

) 

if  ( (float) (f aba (dgat (w,nm, 1) ) +anorm)  —  anorm)  braak; 

) 

if  (flag)  { 
c-0 .0; 


Appendix  A  The  SV0  Processor 


f»a*rvl[i]  ; 
rvl[i]«e*rvl[i] ; 

if  ( (float) (faba(f) +inorn)  mm  tnorm)  braak; 
gadget  (w,  i,  1) ; 
h-PYTHAG (£, g)  ; 
dat»«b; 

dput  (w,  i,  1,  data)  ; 

b-1.0/b; 

o— g*h  ; 

«-(-f*h); 

for  (j-1; j<-m;j++)  { 
y*dg«t (a, j, nm) ; 
z-dgat (a, j.i) ; 
data  ■  y*c+z*a; 
dput  {a,  j,  nm,  data)  ; 
data  *  z*c-y*a; 
dput  (a,  j.i,  data); 

) 

) 

} 

z-dgat  (w,k,  1)  ; 
if  (1  —  k)  { 

if  (z  <  O.C)  { 
data  m  -z; 
dput  (w,k,  1,  data) ; 
for  ( J*l; j<«n; j++) 

{ 

datal  -  (-dgat  (v,  j ,  k) ) ; 
dput (v, j,k, datal) ; 

) 

) 

break; 

} 

if  (ita  ”  100)  nrarror ("No  oonvargano*  in  100  STDCMP  itarationa") 

x-dgat (w, 1,1); 

nm»k-l; 

y-dgat  (*,  nm,  1)  ; 
g—rvl [nm] ; 
h-rvl [k] ; 

( <y-«) *  (y+*)  +  (g-b)  *  (g+b) )  /  (2 . 0*b*y)  ; 

g-PYTHAG(f , 1.0) ; 

f-<  <x-z)*  <x+z)+b* ( (y/ (f+SIGN (g, f) ) ) -h) ) /x; 
o-«»1.0; 

for  ( j»l; j<«nm; j++)  [ 
i-j+1; 

g«rvl [i] ; 

y«dget(w, i,l); 

b«a*g; 

g»o*g; 

z-PYTHAG (f  ,h) ; 

rvl[j]-z; 

e«f/z; 

a-h/z; 

f»x*c+g*a; 

g»g*c-x*a; 

b»y*a; 

y»y*c; 

for  (jj-1; jj<-n;jj++)  { 
x-dgat (v, jj, j); 
z-dgat (▼, jj,i); 
datal  -  x*c+z*a; 
dput (v, j j , j , datal) ; 
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datal  “  x*o-x*a; 
dput (v, jj,  i, datal) ; 

) 

X-PYTHAG (f , h) ; 
dtttai; 

dput  (w,  j,  1,  data)  ; 

if  (*>  ( 

x-l.O/x; 

c»£*x; 

»«h»* ; 

} 

*“( 0*g)+(a*y)  ; 

*“  (e*y)  -  (»*g)  ; 
for  (jj-i;jj<-«;33++)  { 
y-dg«t<*, 33,3); 
x-dgat(a, 33,1); 
data  “  y*c+x*a; 
dput (a, 33, 3, data); 
data  «  x*c-y*»; 
dput (a, 33, i, data); 

> 

> 

rvl[l)*0.0; 

rvl[k]-f; 

data-x; 

dput (w,k, l,data) ; 

) 

) 

fraa_vactor (rvl, 1, n)  ; 

) 

fundaf  SIGN 
fundaf  MAX 
fundaf  PYTHAG 

/*Vldao  mods  control*/ 
void  Sat_Moda ( ) 

{ 

//320X200 
if  (mod«“l)  { 

_aam  mov  *x, 13h; 

_asm  lnt  lOh; 

WIDTH1-320; 

HBIGHT1-200; 

> 

// 640X480 
if  (aod«*»2)  { 

_««m  mov  ax, 4f02h; 

_a«m  mov  bx, 101b; 

_aam  int  10b; 

WXDTH1-640; 

HRIGHT1-480; 

} 

//800X600 
if  (moda**3)  { 

_a«m  mov  ax, 4£02b; 

_aam  mov  bx, 103h; 

_asm  lnt  10b; 

WIDTH1-800; 

HXIGHT1-600; 

} 

//1024X768 
if  (mod«“4)  { 

_aam  mov  ax,  4f02h; 

_aam  mov  bx, 105b; 
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asm  lnt  10b; 

WXOTB1-1024; 

BSIGBT1-768; 

) 

> 

/♦Palotta  load*/ 
void  Sat  FallattaO 
< 

lnt  l,j,k; 

for  (1— 0 ;  K-255 ; i++) 

< 

palbuf [1] [0] -i/4; 
palbuf [i] [1]— 1/4; 
palbuf [1] [  2 )  — i  /  4 ; 

) 

j-256; 

k«0; 

p-tpalbuf ; 

1- (lnt)p; 

_aia  mov  dx,  i; 

_a»m  mov  bx, k; 

_aia  mov  cx, j; 

_aam  mov  ax, 1012b; 
asm  lnt  10b; 

7 

/*Vldao  mamory  bank  control*/ 
void  Sat_Bank (bank_no) 
lnt  bank_no; 

{ 

_asm  mov  ax, 4f05b; 

_asm  mov  bx, OOh; 

_asm  mov  dx, bank_no; 
asm  lnt  10b; 

T 

/•Plxal  display*/ 

void  DisplayJPixal (plxal, position) 
lnt  plxal, position; 

( 

_asm  mov  os, [oursag] ; 

_asm  mov  al.byta  ptr  plxal; 

_asa  mov  bx, position; 
asm  mov  as: (bx],al; 

> 


/♦Main  program  bagins*/ 
main  () 

{ 

float  data; 
float  plx_no; 
lnt  i, J, jj.li.x.y; 

unsignod  int  bank-0, pixal, naw_bank, position; 
char  string[15]; 
unslgnad  char  dumny; 

FILE  *uprimo; 

FILS  *vmatrix; 

/*Raad  in  imaga  info*/ 
infila  -  fopan('"'input“',  "r") ; 

fscanf (infila, "%d  %d  %d", smoda, (width, (height) ; 
fscanf (infila, "Is", string) ; 
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folooo  (infile)  ; 
if  <oidth>720  ((  hoight>720) 

{ 

print f  ("Image  ia  too  large.'); 
exit  (1)  ; 

) 

/•Road  in  imago  and  initialise  axtandad  memory*/ 

inf i la  «  f open (string, "r+b" ) ; 

xmallocato (t imago, 2048) ; 

xmallocato (&sqrt_eigenvala, 3) ; 

xaallocato (tv, 2048) ; 

xaallocato (troault, 2048) ; 

for  (3*1;  j<-hoight;  J++) 

{ 

for  (1*1;  i<»width;  i++) 

{ 

facanf  (infilo,  *%c",  tduaxny)  ; 
data  *  (float)  (dummy)  ; 

xmputrow(tdata, imago,  (j-l)*4,  (i-1) , 4, 2880) ; 

) 

) 

/•Procoaa  imago*/ 

svdcmp (imago, height, width, aqrt_oigonvals, V) ; 

/•Savo  0  primo  and  V  matricoa*/ 
uprimo-fopon (*uprimo .out", "*") ; 
vmatrix«fopon ("v  . out " ,  "w")  ; 
for  (i*vidth+l;  i<*height ;  i++) 

{ 

data*0 . 0; 

dput (aqrt_oigonvalo, i, 1, data) ; 

> 

for  (3*1; j<”hoight; J++) 

( 

for  (i*l;i<*width;i++) 

( 

data*dgot (imago, 3,1) *dgot (aqrt_oigonvala, i,  1) ; 
dput (imago, 3 , i , data) ; 
fprintf (uprimo, "%f  ".data); 

) 

) 

for  (3*1; 3<“*ldth; 3++) 

{ 

for  (33*l;33<*boight;33++) 

{ 

data-dgot (V,  3,33); 
fprintf (vmatrlx,  "%f  '.data); 

) 

) 

foloao (uprimo) ; 
fclooo (vmatrlx) ; 

printf ("READY  -  PRESS  A  KEY*);  gotchar(); 

/*Roeonatruct  imago*/ 

//Sot  display  mods 
Sot_Moda  () ; 


//Sotup  palotto 
Sot_Pallotto () ; 

//Sotup  VGA  mamory 
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8at_Bank (bank) ; 

_aam  mov  [oursag] , OAOOOh; 

//Raconatruct  and  display  imaga  with  bank  switching 
if  (hnight>HSIGHTl) 

_halght-HBICHTl ; 

alaa 

_haight-haight; 
for  (ii~l; li<»width; ii++) 

( 

for  ( j-1 ; j<«_haight ; j++) 

( 

for  ( jj»l; j j<»width; J  j++) 

( 

data-dgat (imaga, j, ii) *dgat  (V, J  j, ii) ; 

if  (ii  !■  1)  data-data+dgat (raault, j, j j) ; 

dput (raault, j, j j, data) ; 

pixal  *  (unaignad  int)  data; 

x-jj-l; 

y-3-i; 

pixjno-  (float)  y**IDTHl+x+l; 
naw_bank«pix_no/ 6553  6 ; 
if  (naw  bank t -bank) 

( 

bank-na w_bank ; 

Sat  Bank (bank) ; 

) 

posit ion»pix_no-naw_bank* 655 3 6; 
Diaplay_Pixal (pixalTposition) ; 


gatchar () ; 

//Raoat  taxt  moda 
_aam  mov  ax,  3; 

_aam  int  lOh; 

/*Fraa  axtandad  mamory  and  oloaa  filas*/ 

xmfraa (imaga) ; 

xmfraa (aqrt_aiganvala) ; 

xmfraa (V) ; 

xmfraa (raault) ; 

f oloaa (infila) ; 

> 

/‘Main  program  ands*/ 
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The  Image  Factory 

•Include  <o:\c700\lncluda\atdlo.b> 

•lncluda  <c:  \c700\includa\aath  .b> 

•include  <c: \c700\lnclude\malloc.b> 

•include  <c: \o700\includa\vicdefa .b> 

•include  <o: \c700\inelude\vicfata .h> 

•include  <o: \c700\lnclude\vlcerror .h> 

•include  <c: \o700\lnclude\grapb.b> 

/•Global*  begin*/ 

lot  aqrt_elgenvala, V, reault , nod*, width, height; 

lnt  ouraag, WIDTH1, HKIGHTl,_height; 
unaigned  char  palbuf (256] [3] ; 
void  _ far  *p; 

TILt  *infila; 
tXlB  •outflla; 

/•Global*  and*/ 

/•Extended  memory  data  ratriaval*/ 
float  dgat (handla, tnd#x_x, indax_y) 
lnt  bandla, lndax  x, lndax  y; 

( 

float  data; 
lnt  taat; 

teat-xmgetrowUdat  a,  handle, (ind*x_x-l) *4, (ind*x__y-l)  ,  4,2880)  ; 

1^  (taat I— HO_KRROR)  { print f ("dgat  41 , 41, 41", bandla, lndax  x, lndax  y); 
gatcbar ( ) ; ) 

ratum  (data) ; 

> 

/•Kxtandad  mamory  data  placement*/ 
void  dput (bandla, indexjx, lndax  y, data) 
lnt  bandla, lndax_x, lndax_y; 
float  data; 

( 

float  dummy; 
lnt  taat; 

dummy  m  data; 

teet»xmputrow (Sdummy, bandla, (lndax  x-l)*«, (index_y-l) , 4, 2880)  ; 

If  (taat!-HO_KRROR)  (prlntf (“dput  41, 41, 41', handla, lndax  x, lndex_jy) ; 
gatohart);}  " 

) 


/•Vida  moda  control*/ 
void  Sat  Moda() 

{ 

//320X200 
If  (aoda»l)  { 

_aam  mov  ax, 13h; 
_aam  lnt  lOh; 
WIDTH1-320; 

HEIGHT 1-200; 

} 

// 640X480 
If  (mode«2 )  ( 

_aam  mov  ax, 4f02b; 
_a am  mov  bx, 101b; 

aaa  lnt  10b; 
WIDTH1-640; 
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BBIGBtl-480; 

) 

//800X600 
if  (mo  da— 3)  { 

_asm  aov  ax, 4f 02h; 

_aam  aov  bx, 103b; 

aam  Int  10b; 

WXD3B1-800; 

HXIGHT1-600; 

) 

//1024X768 
if  (mods— 4)  { 

_asm  bov  ax, 4f 02b; 

_i«a  bov  bx, 105b; 

mb  int  10b; 

WIDTH1-1024; 

HBIGHT1-768; 

) 

> 

/*Pal*tt*  load*/ 
void  Sot  PallattsO 
{ 

int  i,  j, k; 

for  (i-0;i<-255;i++) 

{ 

palbuf [i] [0]-i/4; 
palbuf [i] [l]-i/4; 
palbuf [ij [2]«i/4; 

} 

3-256; 

k-0; 

p»£palbuf ; 
i— (int)p; 

_ asm  mov  dx, i; 

_asm  mov  bx,k; 

_aam  mov  cx, j; 

_aam  mov  xx, 1012b; 
xxm  int  lOh; 

T 

/•Video  mxmory  bank  control*/ 
void  Set_Bank(bank_no) 
int  bxnk_no; 

( 

_xam  mov  ax, 4f 05b; 

_aam  mov  bx, 00b; 

__aam  mov  dx,bank_no; 
aam  int  10b; 

T 

/♦Pixel  display*/ 

void  Display_Pixel (pixal, position) 
int  pixsl, position; 

{ 

_**m  mov  ss, [ourseg] ; 

_asm  mov  al.byta  ptr  pixsl; 

_asm  mov  bx,position; 
asm  mov  ss: [bx] ,al; 

T 

/•Main  program  bsgins*/ 
main  () 

< 
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float  data; 
float  pix_no; 

lot  i,  j,  J  j,  ii,  x, y,  aet_no, add_rem, aavo_continuo; 
unaignad  lot  bank-0, pixel, now_bank, position; 
ohar  atring[15J; 

FILE  *uprima; 

FILX  *vmatrix; 

/*Road  in  imago  info*/ 
infilo  “  fopen ("input", "r") ; 

f aeaaf (inf ilo, *%d  %d  %d" , imode, t width, thaight) ; 
faloao (infilo) ; 
if  (width>720  «C  hoigbt>720) 

{ 

print f  ("Imago  is  too  largo.'); 
exit(l); 

) 

/•Road  in  imago  and  initialise  oxtondod  memory*/ 
xmallocate (fi imago, 2048) ; 
xmallocato (4V, 2048) ; 
xmallooato (troault , 2048) ; 

/•Rotriovo  0  prime  and  V  matrices*/ 
uprima-f open ("uprima. out', *r") ; 
vmatrix«f open ("v. out', "r") ; 
for  ( J»l; j<»height ; j++) 

{ 

for  (i*l;i<»width;  i++) 

< 

f acanf (uprima, "%f " , sdata) ; 
dput (imago, j , i ,  data)  ; 

> 

} 

for  (J«l; j<-width; j++) 

{ 

for  ( jj»l; Jj<ohoight; jj++) 

< 

f acanf (vmatrix, "tf" , idata)  ; 
dput  (V,  j ,  j  j ,  data)  ; 

} 

} 

fcloao (uprima) ; 
faloao (vmatrix) ; 

printf ( "READY  -  PRSSS  A  KEY');  gotcharO; 

/•Reaonatruct  imago*/ 

//Sot  diaplay  mode 
Set_Mode()  ; 

//Setup  palette 
Set_Palletto  () ; 

//Setup  VGA  mamory 
Sat_Bank (bank) ; 

_aam  mov  [ouraog] , OAOOOb; 

//Reaonatruct  and  diaplay  imago  with  bank  avitching 
if  (beight>HBXGHTl) 

_height-HEIGHTl  ; 

olao 

_height -height ; 
for  (iiol;ii<awidth;ii++) 
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< 

for  height; 3++) 

< 

for  (33-1; 33<-width; j j++) 

( 

data-dget  (image,  j,  it)  *dget  (V,  j  j,  ii)  ; 

if  (ii  !«  1)  data-data+dget  (result ,  J  ,  }  J)  ; 

dput (roault, j, j j , data) ; 

pixol  *  (unsigned  int)  data; 

x-jj-l; 

y-j-1; 

pix_no-  (float)  y*WIDTBl+x+l; 
naw_bank« (pix_no) / 65536; 
if  (new  bank  I -bank) 

( 

bank-new_bank ; 

Sat  Bank (bank); 

) 

position-  pix_no-new_bank*65536; 

Display  Pixel (pixel, position) ; 

) 

} 

) 

gat  char  () ; 

/•Allow  aigan-aat  removal*/ 
while (1) 

{ 

//Reset  text  mode 
_asm  mov  ax, 3; 

_asm  int  lOh; 

//Offer  to  save  image 

printf (” (0) -Save  Current  File  (1) -Continue") ; 

printf (”\n? :  ') ; 

aoanf ( ”%i" , Saave_continua) ; 

get  char  ()  ; 

if  (leave_oontinue) 

{ 

printf (“\nRnter  filename;  ') ; 
aoanf C*%s', string) ; 
get  char  ()  ; 

outf ile-f open (string, • w+b " ) ; 
for  ( 3-1; 3<»_haight ; j++) 

( 

for  (jj-l; jj<ewidth; jj++) 

( 

data-dget (result, 3, 33) ; 
pixel  -  (unsigned  int)  data; 
fprintf (outfile, "%c", pixel) ; 

) 

) 

f close (outfile) ; 

) 


//Obtain  set  number  and  give  choice  of  adding  or  removing 

printf ('\nSnter  eigen-set  number.'); 

printf (“\nl<-x<-%i  quit-999", width) ; 

printf ("\nx:  '); 

aoanf  C*%i', Sset_no) ; 

getohar () ; 

if  (set  no— 999)  break; 
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printf C“\n(0)-*dd  (1) -Remove') ; 
print '); 
acanf (~%i', « add_rem) ; 
getchar () ; 

/•Reconstruct  image* / 

//Sat  display  mode 
Sat_Mode ( ) ; 

//Setup  palette 
Set_Pallette  () ; 

//Setup  VSA  memory 
Sat_Bank (bank) ; 

_aam  mov  [oursag] , OAOOOb; 

//Reconstruct  and  display  image  with  bank  switching 
for  (ii— set  no;ii<— set  no;ii++) 

( 

for  ( j— 1; J<-_helght; J++) 

< 

for  (jj-l; jj<-width; jj++) 

{ 

data-dget (image,  j, ii) *dget (V, j  j, ii) ; 

if  < add_rem)  data-dget (result, J, j j) -data; 

else  data-dget (result,  j,  j j) +data; 

dput (result, j, j j,dats) ; 

pixel  -  (unsigned  int)  data; 

x-3j-l; 

y*j-l; 

pix_no-  (float)  y*WIDTHl+x+l; 
new_bank- (pix_no) / 65536; 
if  (new_bank ! -bank) 

( 

bank-new_bank; 

Set  Bank (bank) ; 

} 

position-  pix_no-new_bank*65536; 
Display_Pixel (pixel, position) ; 

} 

} 

) 

get char ( ) ; 

> 

/•Free  extended  memory  and  close  files*/ 

xmf ree (image) ; 

xmf ree  (V) ; 

xmf ree (result) ; 

) 

/•Main  program  ends*/ 


Appendix  B  The  Image  Factory 


Appendix  C 
Vision 


Appendix  C  Vision 


Vision 


tinaluda  <c: \c700\inoluda\atdio .b> 
tinaluda  <c: \c700\includa\math .b> 
tinaluda  <c: \c700\includa\malloc.h> 
tinaluda  <c: \c700\includa\viadaf ■ . h> 
tinaluda  <o: \o700\includa\vicfcta .h> 
tinaluda  <o: \a700\inoluda\vioarror ,h> 
tinaluda  <a: \c700\includa\graph.b> 

/*Globala  bagln*/ 

int  mo da, width, baigbt , WIDTH1, BEIGHT1, ouraag; 
unaignad  char  palbuf [256] [3] ; 
void  far  *p; 

FILE  *infila; 

/ ‘Global a  and*/ 

/•Vidao  moda  control*/ 
void  Sat  Moda() 

{ 

//320X200 
if  (moda— 1)  { 

_aam  mov  ax, 13h; 

_aam  int  lOh; 

WZ09B1-320; 

BBXGBtl-200; 

> 

// 640X480 
if  (moda— 2)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, lOlh; 

_aam  int  lOh; 

WIDTH1-640; 

HKIGHT1-480; 

> 

//800X600 
if  (moda— 3)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, 103b; 

_aam  int  10b; 

WIDTH1-800; 

BHIGBT1-600; 

} 

//1024X768 
if  (moda— 4)  { 

_aam  mov  ax, 4f 02h; 

_aam  mov  bx, 105b; 

_asm  int  10b; 

WIDTB1-1024; 

BEIGBT1-76  ■; 

> 

> 


/*Load  Palatta*/ 
void  Sat  Pallatta() 

{ 

int  i, j,k; 

for  (i-0;i<-255;i++) 

{ 
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pxlbuf [i]  [0] “i/4; 
pxlbuf [1] [l]-i/4; 
pxlbuf [i] [2]-i/4; 

) 

3-256; 

k-0; 

p— Spxlbuf; 
i-(int)p; 

_asm  bov  dx, i; 

_aam  bov  bx, k; 

_«!■  BOV  ox,  j; 

_asm  bov  xx, 1012b; 
xxa  int  10b; 

T 

/•Video  BOBory  bxnk  control*/ 
void  Sot_Bxnk (bxnk_no) 
int  bxnk  no; 

{ 

_xsa  bov  xx, 4f05h; 

_xxm  aov  bx, 00b; 

_xia  aov  dx,bxnk_no; 
xxa  Int  10b; 

T 

/•Pixel  dixplxy*/ 

void  Display_Pixel (pixel, position) 
int  pixel, poxition; 

{ 

_xia  aov  ex, [ouraeg] ; 

_xsm  bov  xl,byte  ptr  pixel; 

_aam  aov  bx, position; 
xsa  aov  es : [bx] , xl; 

) 

/*Nxin  progrxa  begins*/ 

Min  () 

< 

float  pix_no; 
int  i,3.Jj,x,y; 

unsigned  int  bxnk-0, pixel, new_bxnk, position; 
unsigned  chxr  dsts; 
cbxr  st ring [15] ; 


/•Read  in  iaxge  info*/ 
printf ("Inter  filenxas:  '); 

soxnf (*%s", string) ; 
get  chxr  ()  ; 

inf ile-fopen (string, "r+b") ; 
printf ("Inter  aode:  ') ; 

soxnf ("%d” , 6 mode) ; 
getobxr ( ) ; 

printf ("Inter  width, height :  '); 

soxnf ("%d, %d”, fi width, Sheight) ; 
getohxr {) ; 

//Set  display  mode 
SetJMode  ()  ; 

//Setup  pxllette 
Set_Pxllette ()  ; 

//Setup  VGA  memory 
Set  Bxnk (bxnk) ; 


Appendix  C  Vision 


C3 


ill  mv  [our sag] ,  OAOOOh; 

/ /Reconstruct  and  display  image  with  bank  switching 
for  (J»l; j<“haight; j++) 

{ 

for  (jj-l; Jj<»width; jj++) 

( 

fscanf (infile,  "%c",  (data) ; 
pixel  -  (unsigned  int)  data; 

*-33-i; 

yj-i; 

plx_no»  (float)  y*WIDTHl+x+l; 
new_bank- (plx_no) /65536; 
if  (new  bank ! -bank) 

( 

bank— new_bank ; 

Set_Bank (bank) ; 

) 

position-  pix_no-new_bank*65536; 

Display_Pixel (pixel, position) ; 


get  char  () ; 

//Reset  text  mode 
_aam  mov  ax, 3; 

_asn  int  lOh; 

folose (infile) ; 

) 

/♦Main  program  ends*/ 
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The  DFT  Processor 


•includa  <c: \c700\include\stdio .h> 
iinclude  <c:\c700\includ#\math.b> 

Iinclude  <c: \c700\include\viodefa .h> 

•includa  <c : \c700 \inaluda\vicf ct a . b> 
iinoluda  <c: \c700\includa\vicerror .h> 
iinoluda  <o : \c700\include\graph .ta> 

/•Global#  bagin*/ 

int  image, rami, imaginary, moda, width, height; 
int  ourseg,WIDTHl,HEIGHTl,_height; 
unaignad  char  palbuf [256] [3] ; 
float  biaai; 
void  _ far  *p; 

FILE  *infile,  *raal_outf ila,  *imaginary_outfile; 

/•Global*  and*/ 

/•Extended  mamory  data  ratriaval*/ 
float  dget (handle, index_x,indexjy) 
int  handla , indax_x, index_y ; 

{ 

float  data; 
int  test; 

test»xmgetrow(Sdata, handle, (indax_x-l) *4. (lndax  y-1) ,4,2880) ; 
if  (test!«NO_ERROR)  (printf (*dgat~%i, 41, %i", handla, indax_x, index _y) ; 
gatohar () ; } 

return (data) ; 

) 

/•Extended  mamory  data  placement*/ 
void  dput (handle, index_x, indax_y, data) 
int  handla , indax_x, index_y ; 
float  data; 

{ 

float  dummy; 
int  tast; 

dummy  «  data; 

test<Bxmputrow(Sdummy, handla, (indax_x-l) *4, (index_y-l) , 4, 2880) ; 
if  (teat ! «N0_ERR0R)  { print f ('dput  *1, %i, *i", handla, indax_x, indax_y) ; 
gatohar () ; } 

> 

/•Discrete  Fourier  Transform*/ 
void  dft (image, height , width, real, imaginary) 
int  image, height . width, real, imaginary; 

( 

int  m,  n,  l,k; 

float  mag, phase, tot_real, tot_imaginary; 
float  sav_raal, eav_imaginary; 
float  f width,  fheight; 

f width  -  (float)  width; 
fheight  *  (float)  height; 

for  (k-0;k<beight;k++) 

( 

for  (1«0;  Kwidtb;  1++) 

( 

»av_real-sav_imaginary-0  ; 

for  (m*0;m<height;m++) 
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{ 

tot_roal*tot_imaginary*0; 
for  (n*0;n<«idth;n++) 

{ 

mag*dgot  (imago,  m+1,  n+1)  ; 

phase-  (float)  -2.0*3 .1415 926535/f vldth*l*n; 

tot_real+-mag*cos (pba so) ; 

tot  imaginary+-mag* sin (phase) ; 

) 

pbaao-  (float)  -2 . 0*3 . 1415926535/fheight*k*m; 

aav_real+-tot_real*cos (pbaao) -tot_imaginary*ain (pbaao) ; 
aav  imaginary+-tot  lmaginary*coa (pbaao) +tot  roal*ain (pbaao) 
) 

if  (sav_imaginary>biasi)  biaai-sav_imaginary; 

dput (roal, k+1, 1+1, aav_roal) ; 

dput  (imaginary,  k+1, 1+1,  aav_imaginary) ; 

) 

printf (” .") ; 

) 

) 

/*Vidoo  mod*  control*/ 
void  Sot_Mode ( ) 

{ 

//320X200 
if  (mode—1)  { 

_aem  mov  ax, 13b; 

_aam  int  10b; 

WIDTH1-320; 

HBIGHT1-200; 

) 

// 640X480 
if  (mode--2)  { 

_»«m  mov  ax, 4f02h; 

_aam  mov  bx, 101b; 

aam  int  10b; 

WIDTH1-640; 

HEIGHT 1>480; 

) 

//800X600 
if  (mode— -3)  ( 

_aam  mov  ax, 4f02b; 

__a#m  mov  bx,  103h; 

_aan  int  10b; 

WIDTH1-80Q; 

HBIGHT1-600; 

) 

// 1024X1 68 
if  (mode--4)  { 

_aam  mov  ax, 4f02b; 

_aam  mov  bx, 105b; 

_aam  int  lOh; 

WIDTH1-1024; 

HEIGHT1-768; 

) 


/•Palotto  load*/ 
void  Sot  Palotto () 
t 

int  i,j,k; 

for  (i-0;i<«255;i++) 

{ 
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palbuf [1] [0]-i/4; 
palbuf [il  [11 -i/4; 
palbuf [i] [2J-1/4; 

) 

j-256; 

k-0; 

p-Cpalbuf; 

1- (int) p; 

_a*m  bov  dx, 1; 

_*»m  aov  bx, k; 

_um  bov  ox,  j; 

_aaa  bov  ax, 1012b; 

_asm  lot  10b; 

1 

/•Video  MBory  bank  control*/ 
void  S«t_Bank (bank_no) 
int  bank  no; 

{ 

_aia  bov  ax, 4f 05h; 

_aia  bov  bx, 00b; 

_a»m  bov  dx,bank_no; 

_aam  int  10b; 

) 

/•Pixel  display*/ 

void  Display__Pixal  (pixel, position) 
int  pixel, position; 

{ 

_ssb  bov  es, [ourseg] ; 

_ssb  aov  al.byte  ptr  pixel; 

_asm  aov  bx, position; 

_asa  aov  as ; [bx] , al; 

> 


/•Main  program  begins*/ 
main  () 

{ 

float  data; 
float  pix_no; 
float  bias; 
int  i,j,x,y; 

unsigned  int  bank-0, pixel, ne«_bank, position; 
char  string [ 15 ] ; 
unsigned  char  dummy; 

/•Head  in  image  info*/ 
infile-fopen ("input", "r") ; 

fsoanf (infile,  ”%d  %d  %d" ,  fimoda,  (width,  (height) ; 
f scanf (infile, *li",  string) ; 
folose (infile) ; 

/•Read  in  image  and  initialize  extended  memory*/ 

infile-fopen (atring, "r+b" ) ; 

xmallooata ((image, 2048) ; 

xmallocate ((real, 2048) ; 

xmallooata ((imaginary, 2048) ; 

for  (j-l;  j<«heigbt;  j++) 

{ 

for  (i-1;  K-width;  i++) 

{ 

fsoanf  (infile, "%c" , (dummy) ; 
data  -  (float)  dummy; 

xmputrow((data, image, (j-l) *4, (i-1) , 4, 2880) ; 

) 
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) 

/•Pro ness  imago*/ 

dft (imago, height , width, real, imaginary) ; 

/•Sava  OPT  roaulta  to  hard  disk*/ 
real_outfile“fopen (“real. out",  "w") ; 
imaginary _outf ile«fopen ('imag . out” , "w" ) ; 
for  (3*1;  3<>hoigbt;  j++) 

( 

for  (i-1;  l<-width;  1++) 

{ 

data  “  dgot  (real,  j  ,  i)  ; 

fprintf (roal_outf ilo,  ”%f  “, data) ; 

data  »  dgot (imaginary,  j,i); 

fprintf (imaginary  outfile,"%f  ".data); 

) 

) 

/•Display  roal  and  imaginary  pianos*/ 

//Sot  dislay  mods 
Sot_Modo ( ) ; 

//Sot_up  palotto 
Sot_Palotto() ; 

//Sot -up  VGA  memory 
Sat_Bank (bank) ; 

_asm  mov  [ouraog] , OAOOOh; 

//Display  roal  piano 
bias*dgot (roal, 1, 1) ; 
if  (hoight>  HEIGHT1) 

_hsight “HEIGHT 1 ; 

also 

_halght “height ; 
for  (3*1; j<»  height; j ++) 

{ 

for  (i“>l;  i<«width;  i++) 

{ 

pix«l  -  (unsigned  int)  (dgot (roal, 3, i) *128 . 0/bias+127 .0) ; 

x»i-l; 

y-3-l; 

pix_no-  (float)  y*WIDTHl+x+l; 
now_bank“pix_no / 65 5 3 6 ; 
i f  (no w_bank t “bank ) 

( 

bank-no w_bank ; 

Sot_Bank (bank) ; 

) 

position“pix_no-now_bank* 6553 6; 

Display  Pixel (pixel, position) ; 

> 

> 

gotchar () ; 

//Display  imaginary  plane 
for  (3»1;3<“  height; 3++) 

( 

for  (i“l;i<“width;i++) 

( 

pixel  ■  (unsigned  int)  (dgot (imaginary, 3, i) *128 .0/biasi+127 .0) ; 
x“i-l; 

y-3-i; 
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pix_no«  (float)  y* WIDTH  1-fx+l; 
naw_bank-pix_no / 65536; 
if  (now  bank ! •bank) 

< 

bank-no v_bank ; 

Sot  Bank (bank) ; 

} 

poaition«pix_no-now_bank*65536; 
Diaplay_Pixol (pixol, position) ; 


got char ( ) ; 

//Rosot  toxt  modo 
_asm  mov  ax,  3; 

_asm  int  10b; 

/*Cloao  filos  and  froo  oxtondod  memory*/ 

_fcloseall () ; 

xmfroo (imago) ; 

xmf roo (roal) ; 

xmfroo (imaginary) ; 

) 

/•Main  program  onda*/ 
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The  Inverse  DFT  Processor 


•include  <c: \c700\include\stdio .h> 

•include  <c : \c700\include\math .h> 

•include  <c: \c700\include\vicdef s . h> 

•inolude  <o: \c700\include\vicfcts ,h> 

•include  <o : \c700\inalude\vicerror .h> 

•include  <c : \c700\include\graph .h> 

/•Global*  begin*/ 

Int  image , real , Imaginary, mod*, width, height; 
int  ourseg, WIDTH1, HKIGHTl,_beight ; 
unsigned  char  palbul [256] [3] ; 
void  _ far  *p; 

VII K  *infilel,  *infile2,  *outfile; 

/•Global*  end*/ 

/•Extended  memory  data  retrieval*/ 
float  dget (handle, index_x, index_y) 
int  handle, index_x, index_y; 

< 

float  data; 
int  test; 

test*xmgetrow( (data, handle, (index_x-l) *4,  (index_y-l) , 4, 2880) ; 
if  (test ! «NO_KRROR)  (printf ("dget  %i, *i, %i", handle, index_x, index_y) ; 
get  char  () ;  } 

return (data) ; 

) 

/•Extended  memory  data  placement*/ 
void  dput (handle, index_x, index_y, data) 
int  handle , index_x, index_y; 
float  data; 

( 

float  dusmy; 
int  test; 

dunny  -  data; 

test~xng>utrow  ((dummy, handle, (index_x-l) *4, (index_y-l) , 4, 2880) ; 
if  (test ( -H0_EBR0R)  { print f ("dput  %1, %i, %i", handle, index_x, index_y) ; 
getchar ( ) ; ) 

) 

/•Inverse  Discrete  Fourier  Transform*/ 
void  invdft (image, height , width, real, imaginary) 
int  image, height, width, real, Imaginary; 

( 

int  m,  n,  1,  k; 

float  mag, phase, tot_real, tot_imaginary; 
float  sav_real, sav_imaginary; 
float  new_real,new_imaginary; 
float  f width,  fheight; 

fwidth  *  (float)  width; 
fheight  “  (float)  height; 

for  (maO;m<height;m++) 

( 

for  (n»0;n<width;n++) 

{ 

*av_real-sav_imaginary»0 ; 
for  (k«0;k<height;k++) 
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< 

tot  raal-t ot_imaginary— 0; 
for~(l-0; Kwidth;  1++) 

< 

naw_raal-dgat (raal, k+1, 1+1) ; 
naw_iaaginary-dgot (Imaginary, k+1, 1+1) ; 
phaaa-  (float)  2 . 0*3 . 1415926535/fwidth*l*n; 
tot_raal+«naw_raal*coa (phaaa) -naw_imaginary*ain (phaaa) ; 
tot  i magi nary +— now  imaginary*coa (phaaa) +naw  raal*ain (phaaa) 
) 

phaaa-  (float)  2 . 0*3 . 1415926535/fhaight*k*m; 
aav_raal+«tot_raal*coa (phaaa) -tot_imaglnary*ain (phaaa) ; 
aav_imaginary+-tot  imaginary+coa (phaaa) +tot_raal*ain (pha- •») ; 

) 

mag-aqrt (aav_raal*aav  raal+aav  imaginary*aav  imaginary); 
mag/-  (float)  (width*haight) ; 
dput (imaga, m+1, n+1, mag) ; 

) 

printf  r.'); 

) 

) 

/*Vidao  moda  control*/ 
void  S' t_Moda ( ) 

{ 

//320X200 
if  (moda— 1)  { 

_aam  mov  ax, 13h; 

_aam  int  lOh; 

WZDTB1-320; 

HEXGHX1— 200; 

) 

/ / 640X480 
if  (moda— 2)  ( 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, lOlh; 

a am  int  lOh; 

WIDTH1— 640; 

BKXGHT1— 480; 

) 

//800X600 
if  (moda— 3)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, 103b; 

_aam  int  lOh; 

MIDTH1-800; 

HBXGBT 1—600; 

) 

//1024X768 
if  (moda— 4)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, lOSh; 

_aam  int  lOh; 

WZDTB1— 1024; 

HEIGHT 1-7 68; 

) 

> 

/‘Palatta  load*/ 
void  Sat  Palatta() 

( 

int  l,j,k; 

for  (i-0; i<-255; i++) 

< 
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palbuf [1] [0]-i/4 
palbuf [i] [1) “i/4 
palbuf [1] [2]-l/4 
> 

j-25«; 

k-0; 

p-Spalbuf ; 
i- (int)p; 

_aam  mov  dx,i; 

_a»m  nov  bx,k; 

_asm  aov  cx, J; 

_asm  aov  ax, 1012h; 
aaa  int  10b; 


/*Vidao  mamory  bank  control*/ 
void  Sat_Bank (bank_no) 
lnt  bank_no; 

{ 

_aam  aov  ax, 4f OSh; 

_aaa  aov  bx, OOh; 

_a«m  aov  dx,bank_no; 
asa  lnt  lOh; 


/•Pixel  display*/ 

void  Display_Plxel (pixal, position) 
lnt  pixal, position; 

< 

_asa  aov  as, [ourseg] ; 

_ a Bm  aov  al,byta  ptr  pixal; 

_aim  aov  bx, position; 

_asa  aov  as: [bx],al; 


/‘Main  prograa  bagins*/ 
aain  () 

{ 

float  data; 
float  pix_no; 

int  i,j,x7y; 

unsignad  int  bank-0, pixel, naw_bank,position; 
char  string [15]; 
unsignad  char  dummy ; 

/*Raad  in  iaaga  info*/ 
infilal-fopan ("input",  "r") ; 

fsoanf (infilal,  ”%d  %d  %d~,  fiaode,  S width,  theight); 
fscanf (infilal, "%sn ,  string); 
f olosa (infilal) ; 

/*Raad  in  raal  and  iaaginary  matricas  and  initialize  extended  memory*/ 

infilal— f open ("real. out',  "r")  ; 

infila2-fopan (~imag. out', "r") ; 

xaallocata {t image,  2048)  ; 

xmallocata (4  real,  2048) ; 

xaallocata (Ciaaginary, 2048)  ; 

for  (j-1;  j<-haight;  j++) 

{ 

for  (i-1;  i<-width;  i++) 

{ 

fsoanf  (infilal, "%f  ~,£data); 

xaput row ( (data, raal, (j-1) *4, (i-1) , 4, 2880) ; 

fscanf  (infila2, "%f  sdata) ; 
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xmputrow (sdata. Imaginary,  (i-1) , 4, 2880) ; 

> 

) 

/♦Process  lug**/ 

invdft (image, height, width, real, imaginary) ; 

/♦Sava  DPT  racults  to  hard  disk*/ 
outfile~fopan ("image. out”, "w+b") ; 
for  (3—1;  j<-height;  j++) 

( 

for  (i*l;  iOwidtb;  i++) 

< 

data  “  dget (image,  j.i) ; 
dummy  -  (unsigned  ohar)  data; 
fprintf (outfile, "%c", dummy) ; 

) 

> 

/♦Display  image*/ 

//Set  dislay  mode 
Set_Mode() ; 

//Set_up  palette 
Sat_Paletta () ; 

//Set-up  VGA  memory 
SetJBank (bank) ; 

_asm  mov  [ourseg] , OAOOOh; 

/ /Display  image 
if  (height>  HBIGHT1) 

_height "HEIGHT1  ; 

else 

_haight»haight  ; 
for  (j-l;j<-  height; j++) 

{ 

for  (i*l;i<-width;i++) 

{ 

pixel  «  (unsigned  int)  (dget (image, j, 1) )  ; 

x-i-1; 

yj-1; 

pix_no-  (float)  y*WXDTHl+x+l; 
new_bank-pix_no/ 65  5  3  6  ; 
if  (newJbankTebank) 

( 

bank«ne w  bank ; 

Set  Bank (bank) ; 

) 

pos it i on»pi x_no -ne w_bank* 65536; 

Display_Pixel (pixel, position) ; 

> 

) 

getohar ( ) ; 

//Reset  text  mode 
_asm  mov  ax, 3; 

_asm  int  lOh; 

/♦Close  files  and  free  extended  memory*/ 

_fcloseall () ; 
xafree (image) ; 
xmfree (real) ; 
xmf rea (imaginary) ; 
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The  FFT  Processor 


linoluda  <o : \c700\includa\atdio . h> 
linoluda  <c: \o700\includa\math .h> 

I inoluda  <c: \c700\inaluda\vicdaf a ,h> 
linoluda  <o: \c700\includa\vicfota ,h> 
linoluda  <c: \c700\includa\vioarror .h> 
linoluda  <o: \o700\inoluda\graph.h> 

/•Global*  bagin*/ 

int  itnaga ,  raal ,  imaginary,  moda ,  width,  haight ; 
int  ouraag, WIDTH1 , HEIGHT 1 , _haight ; 
unsignad  char  palbuf [256] [3] ; 
float  bia#i«0.0; 
void  _ far  *p; 

FILE  *infila,  *raal_outfila,  •imaginary  outfila; 

/•Global*  and*/ 

/•Extandad  mamory  data  ratriaval*/ 
float  dgat (handla, indax  x, indaxy) 
int  bandla , indax_x, indax  y; 

{ 

float  data; 
int  taat; 

tast«xugatrow(£data, bandla, (indax_x-l) *4, (indax_y-l) , 4,2880) ; 
if  (taatt-HO_ERROR)  {printf ("dgat“%i, %i, *i«, handle, indax  x,lndax_y); 
gatobar ( ) ; ) 

raturn (data) ; 

) 

/•Extandad  mamory  data  plaoamant*/ 
void  dput (handla, indax_x, indax_y,  data) 
int  bandla , indax_x, indax_y; 
float  data; 

{ 

float  dummy; 
int  taat; 

dummy  ■*  data; 

taat«xmputrow(4duramy, handla, (indax_x-l)*4, <indax_y-l) , 4, 2880) ; 
if  (taat!-NO_BRROR)  (printf ("dput  %i , %i , %i ” , handla , indax_x, indaxy) ; 
gatchar();}  “ 

) 

float  a[2] [1025] ; 

/•1-D  Fast  Fouriar  Transform*/ 
void  fft  ld() 

( 

int  n,nv2,nml,i, j.k, 1, la, ip,m; 
float  t[2],pi,u(2],w[2],lal,tamp; 

n«width; 

m»logl0( (float)  n) /loglO (2 .0) + .5; 

nv2«n/2; 

nml«n-l; 

j-x; 

for  (i«l;i<»nml;i++) 

{ 

if  (i>«J)  goto  1 aba IS; 
tt0)-a[0] [j]; 
t[l)«a[l] [JJ; 
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a(l] tU ; 

•CO] [i]-t(0]; 

•Ci][i]-t[i]; 
labels :  k-nv2; 

label6:  if  (k>-j)  goto  label7; 

3-j-k; 

k-k/2; 

goto  label6; 

1 aba 17 :  j-J+k; 

) 

pi-3. 141592653589793;  _ 

- for  (1-1;  l<-»;  i++)  «r"  • 

( 

la— pow(2, 1)  ; 

1*1- (float) le/2; 

u(0]«1.0; 

u[l]-0 . 0; 

w[0]-coa (pi/lel) ; 

if  (w [0]  <0 . 0)  w(0]*— 1; 

w[l]-ain(pi/lel) ; 

for  ( j-1; j<-lal; J++) 

{ 

for  (i-j;  i<-n;i+-le) 

{ 

ip-i+lel; 

t  C0]-» [0]  (ip] *u[0]  -a[l]  [ip]  *u(l] ; 
t[l]-a[l] [ip]*u[0]+a[0] [ip]*u[l] ; 
•  CO]  [ip]  -» [0]  [i]  -t  (0]  ; 

•Cl] [lp]-a(l] [i]-t[l]; 

•C0] [i] +-t [0] ; 

•Cl] [i]+»t[l] ; 

) 

temp— u [0] ; 

u(0]-u[0] *w[0]-u[l] **(!]; 
u(l]-u[ll*w[0]+tanp*w(l]; 

} 

} 

} 

/*2~D  control  of  7aat  Fourier  Transform*/ 
void  fft<) 

C 

int  k,  1; 

for  (k-l;k<-haigbt;k++) 

C 

for  (1-1; l<«width; 1++) 

( 

•[0] [1] -dgat (imaga, k, 1) ; 
a[l] (1]«0.0; 

) 

fft_ld() ; 

for  (1-1; l<-widtb; 1++) 

C 

dput  (raal.k,  1,  a[0]  [1] ) ; 
dput (imaginary, k, 1, a (1] [1]); 

) 

printf <«."); 

} 

for  (1—1; 1<— width; 1++) 

( 

for  (k-1; k<-haight ; k++) 

{ 

•CO] [k] —dgat (raal, k, 1) ; 
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*[1] [k]-dgat (imaginary,  k,  1)  ; 

} 

fft_ld() ; 

for  (k-l;k<-haigbt;k++) 

{ 

dput  (raal,k,  1,  a[0]  [kj )  ; 
dput (imaginary, k, 1, -*[1] [k] ) ; 
if  <-a[l]  [kj >biaai)  bi».i-»UHk1; 
} 

print f ; 

) 

) 

/*Vidao  mod*  control*/ 
void  Sat_Moda ( ) 

{ 

//320X200 
if  (moda— 1)  { 

_a«m  nov  ax, 13h; 

_aam  int  lOh; 

WIDTH1-320; 

HKIGHT1-200; 

} 

// 640X480 
if  (moda— 2)  { 

_aam  aov  ax, 4f02h; 

_a«a  aov  bx, 101b; 

_asm  int  lOh; 

WIDTH1-640; 

HKIGHT1-480; 

) 

//800X600 
if  (moda— 3)  { 

_a«m  rnov  ax, 4f02h; 

_a*B  nov  bx, 103h; 

_a*B  int  lOh; 

WIDTH1-800; 

HEIGHT 1-600 ; 

) 

//1024X768 
if  (moda— 4)  { 

_a*B  bov  ax, 4f02b; 

_asm  bov  bx, 105b; 

_asm  int  10b; 

WXDTH1-1024; 

HEIGHT1-768; 

> 


/*Palatta  load*/ 
void  Sat  PalattaO 
( 

int  i,j,k; 

for  (i-0;i<-255;i++) 

{ 

palbuf [i] [0]-i/4; 
palbuf [i] [l]«i/4; 
palbuf [i] [2] -i/4; 

> 

3-25  6; 
k-0; 

p-spalbuf; 
i-(int)p; 
asm  aov  dx, i; 
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_asm  bov  bx, k; 

_t>m  bov  ox,  j; 

_asm  bov  ax, 1012b; 
aaa  int  loh; 

) 

/*Vidao  aaaory  bank  control*/ 
void  Sat_Bank(bank_no) 
int  bank  no; 

( 

_aaa  aov  ax, 4f05b; 

_aaa  aov  bx, 00b; 

_asa  aov  dx,bank_no; 
aaa  int  10b; 

T 

/•Pixel  display*/ 

void  Diaplay_Pixal (pixal, position) 
int  pixel, position; 

< 

_asa  aov  as, [oursag] ; 

_asa  aov  al.byte  ptr  pixal; 

_asm  aov  bx, position; 
asa  aov  as: [bx] ,  al; 

T 


/*Main  program  bagins*/ 
main  () 

{ 

float  data; 
float  plx_no; 
float  bias; 
int  i,  j,x,  y; 

unaignad  int  bank>0, pixal, nawjbank, position; 
obar  string [15] ; 
unaignad  obar  dummy; 

/*Raad  in  imaga  info*/ 
infileafopen ("input*, "r") ; 

fscanf (infila,  "%d  %d  %d”,  taoda,  t width,  tbaigbt) 
fsoanf (infila, "%s",  string) ; 
folosa (infila) ; 

/•Read  in  imaga  and  initialise  axtandad  aamory*/ 

infileafopen (string, "r+b") ; 

xmallocata (£ image, 2048) ; 

xmallocata (sreal, 2048) ; 

xmallocata (i imaginary, 2048) ; 

for  (j«l;  j<«haight;  J++) 

{ 

for  (1*1;  i<-widtb;  i++) 

- ( - \ 

fsoanf  (infila, "%o", (dummy) ; 
data  *  (float)  duomy; 

xmputrow(£data, imaga, (J-l)*4,  (i-1) , 4,  2880) ; 

X  -  — 

/*Prooass  imaga*/ 

«t();' 

/•Sava  FFT  rasults  to  bard  disk*/ 
real_outfi leaf open (~raal . out* , "w" ) ; 
iaaginary_outf lla-fopan (*imag . out* , "w" )  ; 


Appendix  F  The  FFT  Processor 


for  (3-1;  j<-haigbt;  3++} 

( 

for  (1—1;  i<-width;  i++) 

- 1 - 

data  -  dgat  (raal,  j,  1)  ; 

fprintf  (raal_outfila, "%f  '.data); 

data  -  dgat (imaginary,  ],i) ; 

fprilntf  (imaginary  outfila,  "%f  ~,data); 

_  >  J 


/•Display  raal  and  imaginary  planaa*/ 

//Sat  display  moda 
Sat_Moda ( ) ; 

//Sat_up  palatta 
Sat_Palatta ()  ; 

//Sat -tip  VGA  mamory 
Sat_Bank (bank) ; 

_asm  mov  [oursag] , OAOOOh; 

//Display  raal  plana 
bias-dgat (raal, 1, 1) ; 
if  (baight>  BXXCBT1) 

_haight— HBIGHT1 ; 

alsa 

_hoight-haight  ; 
for  (j-l;j<-  haight; j++) 

( 

for  (1-1; i<-width; i++) 

( 

pixal  -  (unsignad  int)  (dgat  (raal,  j,  i)  *128 . 0/bias-f  127 . 0)  ; 

x«i-l; 

y-j-1; 

pix_no-  (float)  y*W!DTHl+x+l; 
naw_bank— pix  no/65536; 
if  (now  bank! -bank) 

~n 

bank-na w_bank ; 

Sat_Bank (bank) ; 


position-pix_no-naw_bank* 65536; 
DisplayJPixal (pixal, position) ; 


gatchar ( ) ; 

//Display  imaginary  plana 
for  (J-l;3<-  haight; j++) 

< 

for  (i-l;i<-width;i++) 

( 

pixal  -  (unsignad  int)  (dgat (imaginary, j, i) *128 .0/biasl+127 .0) ; 

x— 1-1; 

y»j-l; 

pix_no-  (float)  y*WIDTHl+x+l; 
naw_bank-pix_no / 65536 ; 
if  (now  bank! -bank) 


bank^naw_bank ; 

Sat  Bank (bank) ; 

J _ I 

posit;ion«pix_no-naw_bank*  65536; 
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Display  Pixel (pixel, position) ; 

> 

) 

gstebar ( ) ; 

//Reset  text  mods 
_asm  mov  ax, 3; 

_asm  int  10b; 

/•Close  files  and  free  extended  memory*/ 

_foloseall () ; 

xmfree (image) ; 

xmfree (real) ; 

xmfrae (Imaginary) ; 

) 

/*Main  program  ends*/ 
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The  Inverse  FFT  Processor 


tinoluda  <c: \c700\include\atdio.h> 

•include  <c:\c700\includa\math.h> 
tinoluda  <c : \c700\include\viodef a .  h> 

•include  <c: \c700\include\vicf cts .h> 
tinoluda  <c : \c700\includa\vlcatror .h> 
tinoluda  <c: \c700\include\graph.h> 

/•Global#  begin*/ 

int  image , real , imaginary , mode, width. height ; 
int  ourseg, WIDTH1, HEIGHT1 , ^height ; 
unsigned  cbar  palbuf [256] [3] ; 
void  far  *p; 

FILE  •infilal.  *infile2,  • out file; 

/•Global*  and*/ 

/•Bxtandad  memory  data  retrieval*/ 
float  dgat (handle, indax_x, indax_y) 
int  handle, indax  x,index_y; 

{ 

float  data; 
int  tast; 

teat*xmgetrov( (data, handle, (index  x-l)*4, (index_y-l) , 4,2880) ; 
if  <te#t!-NO_ERROR)  [printf ('dget_*i, %i, %i”, handle, index_x, index_y) ; 
getcbar ( ) ; )  '  ~ 

return (data) ; 

) 

/•Extended  memory  data  plaoament*/ 
void  dput (handle, indax_x, index  y, data) 
int  handle, indax_x, index_y; 
float  data; 

{ 

float  dummy; 
int  test; 

dummy  »  data; 

testexn^utrowfcdummy, handle,  (index_x-l) *4 ,  (index_y-l) , 4,  2880) ; 
if  (test »*HO_ERROR)  { print f ("dput  %i, 4i, 4i", handle, index_x, index_y) ; 
getchar ( ) ; ) 

} 

float  a[2] [1025] ; 

/*1-D  Inverse  Fast  Fourier  Transform*/ 
void  invfft_ld() 

( 

int  n,  nv2,  nml,  i,  j,  k,  1,  le,  ip,m; 
float  t[2] ,pi,u[2] ,w[2] , lei, tamp; 

n«width; 

m-logl0( (float)  n) /loglO (2 .0) +.5; 

nv2«n/2; 

nml«n-l; 

j-i; 

for  (1*1; i<«nml; i++) 

{ 

if  (i»j)  goto  labels; 
t[0]-a[0) [j]; 
t(l]-a(l) [j]; 

•  CO]  [ 3 1  1 0 3  til  ; 
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— > 


•  Cl]  C3J**[l]  Ul; 

•  CO]  tl]-t[0J; 

•  Cl]  [i]-t [l] ; 
labal5:  k-nv2; 

labal6:  If  (k>-j)  goto  labal7; 

3-j-k; 

k-k/2; 

goto,  lab-16; 
labil7:j- j+k; 

- )  \ 

'  pi-3. 14159265358  9793  ; 

for  (1-1; l<-m; 1++) 

( 

la-pow (2, 1) ; 

1*1- (float) la  /  2 ; 
u[0]-l . 0; 
u[l]«0 .0; 

*[0] -eoa (pi/lol) ; 
if  (w[0]  <0 . 0)  w [0]  *— -1; 

*Cl]-ain (pi/lal) ; 
for  < j-1; j<— lal; j++) 

{ 

for  (i-j;  i<-n;i+-la) 

( 

ip«l+lal; 

t[0]-a(0] [ip]*u[0]-a[l] [ip] *u[l] ; 
t [l]-a[l] [ip] *u[0] +a[0] [ip]*u[l]; 

•[0]  [ip]— *[0]  [i]  -t  [0]  ; 

•Cl]  tip]-«[l]  [i]  -t  [1]  ; 

*[0] [i] +— t [0] ; 

•Cl]  (1]  +-t [1] ; 

> 

tamp— u  [0]  ; 

u[0]«u[0]*w[0]-u[l]*w[l]; 

u[l]-u[l]*w[0]+tamp*w[l]; 

) 

) 

> 

/*2-D  control  of  Invarsa  Fa»t  Fouriar  Transform*/ 
void  invfft() 

{ 

int  k, 1; 
float  n; 

n  -  (float)  width; 

for  (k-1; k<-haigbt;k++) 

( 

for  (1-1; 1<— width; 1++) 

C 

•  CO]  [1]  “dgat  (raal,  k,  1)  ; 

•Cl] Cl] -dgat (imaginary, k, 1) ; 

) 

invf f t_ld ( ) ; 

for  (1-1; l<-width; 1++) 

C 

dput  (raal,  k,  1,  a[0]  [1]  /n); 
dput (imaginary, k, 1, a [1] [l]/n); 

> 

prlntf (*.") ; 

} 

for  (1-1;  K-width;  1++) 

{ 

for  (k-l;k<-haight;k++) 
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a[0} {k]-dget <real,k,l)  ; 
a  [  1  ]  [k] >dget (imaginary, k,  1)  ; 

) 

lnvfft_ld() ; 

for  (k»l;k<*heigbt;k++) 

{ 

*[0] [k]-aqrt(a[OJ [k]*a[0] tk]+a(l] (k]*a{l] [k))/n; 
dpuc  (image,  k,  1,  a[0]  [k] )  ; 

> 

print f 

) 

) 

/•Video  mode  control*/ 
void  Set_Mode ( ) 

( 

//320X200 
if  (mode— 1}  { 

_aam  mov  ax, 13h; 

_aam  int  10b; 

WIDTB1-320; 

BBIGBT1-200; 

) 

//640X480 
if  (mode— 2)  ( 

_4«m  mov  ax, 4f02b; 

_aem  mov  bx, 101b; 

_aam  int  10b; 

WXDTB1-640; 

BSXGBX1-480; 

) 

//800X600 
if  (mode— 3)  { 

_asm  mov  ax, 4f02h; 

_aam  mov  bx, 103h; 

aam  int  10b; 

WXDTB1-800; 

BBXGBT1-600; 

} 

//1024X768 
if  (mode— 4)  { 

_ a  am  mov  ax, 4f02b; 

_aem  mov  bx, 105b; 

_aem  int  10b; 

WIDTB1-1024; 

HKIGHT1-7  68 ; 


/•Palette  load*/ 
void  Set_Palette ( ) 

< 

int  i,j,k; 

for  (i— 0; 1<»255; i++) 

palbuf [i] [0]-i/4; 
palbuf [i] [l]-i/4; 
palbuf fi] [2]*i/4; 

} 

3-256; 

k-0; 

p-Cpalbuf; 
i-  (int )  p; 


G4 


Appendix  G  The  Inverse  FFT  Processor 


_asa  nov  dx, i; 
_asm  aov  bx, k; 
_asm  aov  ox, j; 
asm  bov  ax, 1012h; 
asa  lnt  lOh; 


void  Sat_Banlc  (bank_no) 
lnt  bank  no; 

( 

_asa  aov  ax, 4f 05h; 
_aaa  aov  bx, 00b; 
_aaa  aov  dx,bank_no; 
aaa  int  XOh; 


void  Diaplay_Pixal (pixal, position) 
int  pixal, position; 

{ 

_ asm  aov  as, [our sag] ; 

_asa  aov  al,byta  ptr  pixal; 

_asa  aov  bx, position; 

_asa  aov  as : [bx] , al; 


/•Main  prograa  bagins*/ 
aain  () 

I 

float  data; 
float  plx_no; 
float  bias; 
int  i,j,x,  y; 

unsignad  int  bank^O, pixal, nav_bank, position; 
char  string[15]; 
unsignad  char  dummy; 

/•Raad  in  iaaga  info*/ 
infilalafopan (“input", "r") ; 

fscanf (infilal,  ”%d  %d  %d",  smoda,  t width,  cbaight); 
fscanf  (infilal, "%sn,  string); 
f closa (infilal)  ; 

/•Raad  in  raal  and  iaaginary  aatrioas  and  initializa  axtandad  aaaory*/ 

infilalafopan ("raal. out",  "r")  ; 

inf  ila2>>f  open ("imag.out", ”r") ; 

xmallocata (£  image, 2048) ; 

xmallocata (firaal,  2048) ; 

xmallocata (simaginary, 2048)  ; 

for  (j-1;  J<-haight;  j++) 

{ 

for  (i*l;  i<-width;  i++) 

{ 

fscanf  (infilal, "%f  ",sdata); 
xmputrow(Sdata, raal, (j-1) *4, (i-1) , 4,2880) ; 
fscanf  (infila2, "%f  '.(data); 

xaputrow( (data, imaginary,  (j-1) *4,  (i-1) ,4,2880); 


/•Process  iaaga*/ 
invf  ft  ()  ; 

/•Sava  FFT  rasults  to  hard  disk*/ 
outfile*f open ("image . out' , "w+b") ; 
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for  (j-1;  j<“height;  j++) 

{ 

for  (i“l;  i<“width;  1++) 

{ 

data  ■  dget (imago, j , 1) ; 
dummy  «  (unsigned  char)  data; 
fprlntf (outfile, "%c", duaoy) ; 


/•Display  image*/ 

//Sat  display  moda 
Sat_Moda ( )  ; 

//Sat_up  palatta 
Sat_Palatta  O  ; 

//Sat -up  VGA  memory 
Set_Bank (bank) ; 

_asm  mov  [ouraag] , OAOOOh; 

//Display  lmaga 
if  (taaight>  HEIGHT1) 

_haight»HEXGHTl; 

alsa 

_haight -height  ; 
for  (j“l;j<“  height; j++) 

( 

for  (1“1; i<~width; i++) 

{ 

pixal  •  (unsignad  int)  (dgat (image, j,  i) ) ; 
x«i-l; 

yj-i; 

pix_no«  (float)  y*WIDTHl+x+l; 
naw_bank“pix_no/6553S; 
if  (new_bank ! “bank) 

{ 

bank“new_bank  ; 

Sat_Bank (bank) ; 

) 

positlon“pix_no-new_bank* 6553 6; 
Display_Pixel (pixal, position) ; 


gatchar () ; 

//Reset  text  moda 
_asm  mov  ax, 3; 
asm  int  lOh; 


/•Close  files  and  free  extended  memory*/ 

_fclosaall () ; 

xmfrea (imago) ; 

xmfrao (real) ; 

xmfrea (imaginary) ; 

) 

/•Main  program  ends*/ 
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The  DFT  Editor 


•include  <c: \c700\include\atdio.h> 

•include  <o : \c700\include\viodef a . b> 
f include  <c : \c 700 \ include \ vi cf  ct a . h> 

•inolude  <c : \c700\include\vioerror ,h> 

•include  <c: \c700\include\grapb.h> 

/•Global*  begin*/ 

int  image, real, imaginary, mode, width, height ; 
int  eureeg, WIDTH1 , HEIGHT 1 , _beigbt , xl , x2 , y 1 , y2 ; 
unsigned  char  palbuf [256] [3] ; 

float  bi*»i“0 . 0, bia*«0 . 0, biaal-0 . 0 , bia»il«0 . 0; 

void  _ far  *p; 

char  cb; 

FILS  *inf ilel,  *infile2,  *outfilel,  *outfile2; 

/•Global*  end*/ 

/•Extended  memory  data  retrieval*/ 
float  dget (handle , index_x, index_y) 
int  handle, index  x,index_y; 

{ 

float  data; 
int  teat; 

test«xmgetrow(6data, handle, (index_x-l) *4, (index_y-l) , 4, 2880) ; 
if  (teat ( -NO_ERR0R)  (print f ( "dget“%i ,  %i,  %i', handle , index_x, index_y) ; 
getchar () ; } 

return (data) ; 

} 

/•Extended  memory  data  placement*/ 
void  dput (handle, index_x, index_y, data) 
int  handle,  index__x,  lndex_y; 
float  data; 

{ 

float  dummy; 
int  teat; 

dummy  -  data; 

test«xmputrow(4duumy, handle, (lndex_x-l)*4, (index_y-l) ,4,2880); 
if  (teat ! «N0_ERR0R)  ( print f ("dput  %i, %i, %i', handle, index_x, indexjy) ; 
getchar ( ) ; } 

> 

/*DFT  Editor*/ 
void  editdftO 
{ 

float  data; 
int  chl,i,J,x,y; 

start:  printf (~\n (0) -Display  section  (1) -Edit  entry  (2) -Show  section  (3) -Zero 
block') ; 

printf ("\n  ?:  '); 

scanf (*%!', 6chl) ; 
getchar (); 
if  (I chi) 

{ 

printf ("\nEnter  mode:  '); 

scanf  ('“%i",  fimode) ; 
getchar () ; 

printf ("Enter  start  x:  '); 
aoanf ("%!',  txl)  ; 
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gat char ( ) ; 

printf ('Bntar  and  x:  “); 

scanf ('%i',*x2); 
gat  char  ()  ; 

printf ('Bntar  start  y:  "); 
saanf  ('%i",  Cyl) ; 
gat  char  ()  ; 

printf ('Bntar  and  y:  *); 

scanf ('%i", Sy2) ; 
gat char () ; 

if  (xl— 1  sc  yl— 1  SC  x2 —width  ss  y2— haight) 

{ 

biaaabiasl; 

biasi-biasll; 

) 

alsa 

( 

bias"0.0; 

biasi-O.O; 

for  (j-yl; J<-y2; j++> 

( 

for  (i«xl;i<«x2;i++) 

( 

data-dgat (raal, 3,1); 
if  (data>bias)  bias«data; 
data-dgat (imaginary, 3,  i); 
if  (data>biasi)  biasi-data; 

) 

) 

) 

) 

alsa 

( 

if  (chi— 1) 

( 

printf ('\nEntar  x:  *); 
scanf  (*%i*',sx); 
gatchar () ; 

printf ('Bntar  y:  *); 
scanf ('%i",*y); 
gatchar () ; 

printf ('Bntar  naw  raal:  ") ; 
scanf ('%f ", s data) ; 
gatchar ( ) ; 

dput  (raal, y,  x,data)  ; 
printf ('Bntar  naw  Imaginary:  '); 
scanf ('%f",*data); 
gatchar  () ; 

dput (imaginary, y, x, data) ; 
goto  start; 

) 

if  (chi— 2) 

( 

printf ('\nBntar  start  x:  "); 
scanf ('%i", sxl)  ; 
gatchar () ; 

printf ('Bntar  and  x:  ")  ; 

saanf ('%!', Sx2)  ; 
gatchar  ()  ; 

printf ('Bntar  start  y:  "); 
scanf ('%!-,  Syl); 
gatchar () ; 

printf ('Bntar  and  y:  "); 

scanf ('%i",*y2); 
gatchar  () ; 


Appendix  H  The  DFT  Editor 


H3 


for  (j-yi; j<-y2; j++) 

< 

for  (i«xl; i<“x2; i++) 

{ 

printf (~%6.2f, %6.2f  ",dgot (roal, j,  i) , dgot (imaginary, j,  i) ) ; 

) 

printf  ("\n")  ; 

> 

got  char  ()  ; 
goto  atart ; 

) 

if  (chi— 3) 

{ 

printf ("\nRntor  start  x:  “) ; 
soanf  ("%i",  Cxi) ; 
got  char  () ; 

printf ("Enter  and  x:  ") ; 

soanf  <*%i",  Cx2)  ; 
got char ( ) ; 

printf ("Enter  start  y:  '); 
soanf  ("%i",  Cyl)  ; 
gotohar () ; 

printf ("Rotor  ond  y:  ") ; 

soanf ("%i", cy2) ; 
got  char  ()  ; 

for  (3-yl; j«-y2;j++) 

( 

for  (i«xl;i<«x2;i++) 

( 

dput  (roal,  j,  i,  0) ; 
dput (imaginary,  j ,  i .  0 ) ; 

) 

) 

goto  start; 

> 


> 

stop:  printf ("\nREADY  TO  DISPLAY");  gotohar (); 

} 

/•Video  mods  control*/ 
void  SotJModo ( ) 

< 

//320X200 
if  (modo— 1)  { 

_asm  mov  ax, 13h; 

_asn  int  lOh; 

WIDTH1-320; 

HEIGHT1-200; 

} 

//640X480 
if  (modo— 2)  { 

_aam  mov  ax, 4f02h; 

_asm  mov  bx, lOlh; 

_ asm  int  10b; 

WIDTH1-640; 

HEIGHT1-480; 

> 

// 800X600 
if  (modo— 3)  { 

_asm  mov  ax, 4f02h; 

_asm  mov  bx, 103b; 

asm  int  lOh; 

WIDTH1-800; 

HRIGHT1-600; 
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} 

//1024X768 
if  (ood«»4J  ( 

_asm  aov  ax,  4f02h; 

_aaa  aov  bx,  lOSh; 

asm  int  10b; 

SlDJHl-1024; 

HEXGHT1-768; 

) 

) 

/•Palette  load*/ 
void  Sat  Palotta  () 

{ 

int  i,j,k; 

for  (i-0;i<-255;i++) 

( 

palbuf [i] [0]-i/4; 
palbuf [i] [l]-i/4; 
palbuf  [i]  [2] “i/4; 

} 

j-256; 

k-0; 

p-Cpalbuf; 
i- (int) p; 

_aam  aov  dx,i; 

_asm  mov  bx, k; 

_asm  mov  cx, j; 

_asm  mov  ax, 1012h; 

_aam  int  lOh; 

> 

/*Vidao  mamory  bank  control*/ 
void  Sat_Bank(bank_no) 
int  bank  no; 

< 

_asm  mov  ax, 4f05h; 

_asm  mov  bx, OOta; 

_aam  mov  dx,bank_no; 

_asm  int  lOh; 

> 

/*Pixal  display*/ 
void  Diaplay_Pixal (pixal, position) 
int  pixal, position; 

( 

_aaa  mov  as, [oursag] ; 

_aam  mov  al.byta  ptr  pixal; 

_asm  mov  bx, position; 

_asm  mov  as: [bx] ,al; 

) 

/*Main  program  bagins*/ 
main  () 

{ 

float  data; 

float  pix_no; 

int  i, j,x,y,chl,ch,x3,y3; 

unsignad  int  bank-0, pixal, naw_bank, position; 
char  string [15]; 
unsignad  char  dummy; 

/*Raad  in  imaga  info*/ 
infilal-fopan ("input' , "r" ) ; 
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fsoanf (infilal,  *»d  *d  %d",  (mode,  (width,  (height); 
fsoanf (infilal,  "%s",  string); 
fclosa (infilal)  ; 

/•Read  in  rail  and  imaginary  matrices  and  initializa  axtandad  memory* / 

infilel-f open ('real . out” , "r"); 

infile2»f open (*imag. out"  , ”r“)  ; 

xmallooata ((image,  2048)  ; 

xmallooata ((real,  2048) ; 

xaallooata ((imaginary, 2048) ; 

for  0-1;  jc-haight ;  j++) 

< 

for  (1-1;  i<-width;  i++) 

( 

fsoanf  (infllal, ”%f  '.(data); 
xmput row ((data, raal, ( j-1) *4, (i-1) ,4,2880) ; 
if  (data>biaal  ((  (if-1  ((  jf-1))  biasl-data; 
fsoanf  (infila2, ”%f  '.(data); 

xmput row ((data, imaginary, (j-1) *4, (i-1) , 4, 2880) ; 
if  (data>biasil)  biasil-data; 

) 

) 

fclosa (infilal) ; 
fclosa  (infila2) ; 

xl-1; 
yi-l; 
x2 —width; 
y2-height; 

/•Kdit  tha  DFT*/ 
loopl :  aditdf t ( ) ; 

/•Display  raal  and  imaginary  sactions*/ 

//Sat  display  mods 
Sst_Moda () ; 

//Sat_up  palatta 
Sat_Palatta ( ) ; 

//Sat -up  VGA  mamory 
SetJBank (bank) ; 

_asm  mov  (our sag] , OAOOOh; 

//Display  raal  saotion 
y3-y2-yl+l; 
x3«x2-xl+l; 
if  (y3  >  HEIGHT1) 
y3— HEIGHT 1 ; 
for  (j-1; j<-y3; j++) 

{ 

for  (i-l;i<-x3;i++) 

< 

pixal  -  (unsigned  int)  (dgat (raal, j+yl-1, i+xl-1) *128 . 0/bias+127 .0) ; 

x-i-1; 

y-j-1; 

pix_no-  (float)  y*WIDTHl+x+l; 
new_bank-pix_no / 65 53 6 ; 
if  (naw  bank! -bank) 

{ 

bank-new_bank ; 

Sat  Bank (bank) ; 

} 

poaition-plx_no-new_bank* 65536; 

Display_Pixal (pixal, position) ; 
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gatchar  ( ). ; 

//Display  imaginary  aaction 
for  <3“l; j<-y3; j++) 
i 

for  (i“l; i<»x3; i++) 

( 

Pix-1  “  (unsignad  int)  (dgat (imaginary, j+yl-1,  i+xl-1) *128 . 0/biaai+127 . 0) ; 
x»i-l; 

y-3-i; 

pix_no-  (float)  y*WIDTHl+x+l; 
naw_bank-pix_no/65536; 
if  (naw  bank! -bank) 

{ 

bank«na w_bank ; 

Sat_Bank (bank) ; 

) 

posit ion«pix_no-naw_bank* 65536; 

DisplayJPixal (pixal, position) ; 

) 

> 

gatohar ( ) ; 

//Rasat  taxt  moda 
_asm  mov  ax,  3; 

_asm  int  10b; 

printf (”\n (0) -Continua  (1) -Quit") ; 
printf ("\n  ?:  "); 

acanf  ("%i",  *ch)  ; 
gat  char  ()  ; 

if  (tab)  goto  loopl; 

/•Sava  rasulta  to  hard  disk*/ 

printf (~\n(0) -Sava  c  Exit  (l)-Exit"); 

print f (*\n  ?;  -); 

scanf (”%i", Ccbl) ; 

gat char () ; 

if  (ahl)  goto  andl; 

outfllal«fopan (*raal . out" , "v" ) ; 

outf ila2»f opan (*imag. out" , "w") ; 

for  (j»l;  jC-haight;  j++) 

{ 

for  (i»l;  l<-width;  i++) 

{ 

fprintf  (outfilal, "%f  ',dgat (raal, j, i) ) ; 
f printf  (outfila2, "%f  ", dgat (imaginary, J, i) )  ; 

) 

} 

/•Cloaa  filas  and  fraa  axtandad  mamory*/ 
andl : 

_fcloaaall () ; 
xmfraa  (imaga)  ; 
xmf raa (raal) ; 
xmfraa (imaginary) ; 

) 

/•Main  program  ands*/ 
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The  Dilation  Processor 


iinclude  <c : \c700\include\stdio ,h> 

Iinclude  <c : \c700\include\math .h> 

•include  <c:\c700\include\vicdefs.h> 

•include  <c: \c700\include\vicfcts -h> 

•include  <c: \c700\include\vicerror .h> 

Iincluda  <c : \c700\include\graph . h> 

/'Global*  begin*/ 

int  image , result , mode , width,  height , mwidth , mheight ; 
int  ourseg, WIDTH1, HEIGHTl,_height ; 
unaigned  ohar  palbuf [256] [3] ; 
void  far  *p; 

FILE  * infile,  *outfile; 

/'Global*  end*/ 

/'Extended  memory  data  retrieval*/ 
int  dget (handle, index_x, lndexy) 
int  handle, index  x, index_y; 

< 

int  data; 
int  test; 

test=xmgetrow(£data, handle, (index_x-l) *2, (index  y-1) ,2,2050) ; 
if  (test I «NO_KRROR)  { print f ("dget  %i , %i , %i* , handle, index^x, index  y) ; 
get  char  () ;  ) 

return (data) ; 

) 

/'Extended  memory  data  placement*/ 
void  dput (handle, index_x, index  y, data) 
int  handle, index_x, index_y; 
int  data; 

( 

int  dummy; 
int  teat; 

dummy  =  data; 

teat=xmputrow(£dummy, handle, (index_x-l) *2, (index_y-l) , 2, 2050) ; 
if  (test!=NO_KRROR)  { print f ("dput  %i, %i, %i", handle, index_x, index_y) ; 
getcharO;) 

) 

/•Dilation*/ 
void  dilate () 

{ 

int  i, j, ii, j j, index_r, index_e, max, test; 

for  (j=l; j<eheight; J++) 

{ 

for  (i=l;i<=wldth;i++) 

( 

max=255 ; 

for  ( j 3= ( -mheight /2) ; 33<m (mheight/2) ;  33++) 

( 

for  (ii=(-mwidth/2) ;ii<=(mwidth/2) ;ii++) 

( 

lndex_c=i+li; 

index_r=3 +3  3  * 

if  (index  r>=l££index  r<=height££index_c>=l££index_c<=widtb) 

( 

test=dget (image, index_r , index_c) ; 
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if  (teat  <  sax) 

i 

) 

) 

dput (result, j,  1 , nix) ; 

> 

print f (*.“); 

> 

> 

/•Video  mods  control*/ 
void  Sat_Mode ( ) 

( 

//320X200 
if  (oodml)  { 

_aam  aov  ax, 13h; 

_asm  int  lOh; 

WIDTH1-320; 

HEIGHT 1-200; 

) 

//640X480 
if  (mode— 2)  { 

_aam  bov  ax, 4f02h; 

_aam  mov  bx, 101b; 

_aam  int  10b; 

WIDTH1-640; 

HEIGHT1— 480; 

) 

//800X600 
if  (moda— 3)  ( 

_aam  mov  ax, 4f02b; 

_aam  mov  bx, 103b; 

_aam  int  lOh; 

WIOTH1-800; 

HBIGHT1— 600; 

) 

//1024X768 
if  (moda— 4)  { 

_aam  mov  ax, 4f02b; 

_aam  mov  bx, 105b; 

_aam  int  10b; 

WIDTH1— 1024; 

HEIGHT 1-7 68; 

} 


/*Palatta  load*/ 
void  Sat_Palatta() 

{ 

int  i,j,k; 

for  <i»0; i<-255; i++) 

{ 

palbuf [i] [0] -i/4; 
palbuf  [i]  [1] -i/4; 
palbuf (ij [2J-1/4; 

> 

3-256; 

k-0; 

p-Cpalbuf  ; 
i-(int)p; 

_asm  mov  dx,i; 

_aam  mov  bx, k; 

_aam  mov  cx, j; 

_aam  mov  ax, 1012b; 
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a  am  int  lOh; 

T 

/•Video  ntamory  bank  control*/ 
void  Set_Bank (bank_no) 
int  bank  no; 

{ 

_ asm  aov  ax, 4£05h; 

_aam  aov  bx, 00b; 

__aam  mov  dx,bank_no; 

_aam  int  lOh; 

) 

/•Pixal  diaplay*/ 

void  Diaplay_Pixal (pixal,  poaition) 
int  pixal, poaition; 

( 

_aam  mov  aa, [ouraag] ; 

_aaa  mov  al.byta  ptr  pixal; 

_aam  mov  bx, poaition; 
aam  mov  aa:[bx],al; 

T 


/•Main  program  bagina*/ 
main  () 

{ 

float  pix_no; 
int  i, j,x,y, data; 

unaignad  int  bank«0, pixal, naw_bank, poaition; 
char  atring[15] , atringl [15] ; 
unaignad  char  dummy; 

/•Read  in  imaga  info*/ 
infila-fopan ("tfila", "r") ; 

faoanf (infila,  ”%d  %d  %d" ,  (mode,  (width,  (height); 

facanf (infila, '%»" ,  string) ; 

faoanf (infila, "%s",  atringl) ; 

facanf (infile, ”%d  %d",  tmwidth,  (mhaight) ; 

f cloaa (infila) ; 

/*Raad  in  imaga  and  initialixa  axtandad  mamory*/ 
inf ileaf open (string, "r+b”) ; 
xmallocata ((imaga, 2048) ; 
xmallooata((rasult,2048) ; 
for  ( j“l;  j<«haight;  J++) 

{ 

for  (i«l;  i<-width;  i++) 

{ 

facanf  (infila, "%c", (dummy) ; 
data  «  (int)  dummy; 
dput (imaga, j, i, data) ; 

) 

> 

/•Process  imaga*/ 
dilata  ()  ; 

/•Sava  dilation  raaulta  to  hard  disk*/ 
outfileaf open (atringl, "w+b")  ; 
for  (j-1;  3<«haight;  j++) 

{ 

for  (i-1;  i<-wldth;  i++) 

( 

data  a  dgat (rasult, j, i) ; 
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dummy-  (unaignad  oh*r)  data; 
fprintf (outfila, “%c" , dummy) ; 

) 

) 

/•Diaplay  raaulta*/ 

//Sat  diaplay  mo da 
Sat_Moda()  ; 

//Sat_up  palatta 
Sat_Palatta () ; 

/ /Sat -up  VGA  maaory 
8at_Bank (bank) ; 

_aam  mov  [ouraag] , OAOOOb; 

/ /Diaplay 

If  (haigbt>  BEIGBT1) 

_haight«HEICHTl; 

alaa 

_haight -haight  ; 
for  ( 3*1; j<»_haight; j++) 

{ 

for  (i»l;i<»width;i++) 

( 

pixal  -  (unaignad  int)  (dgat (raault, j, i) ) 

x-i-1; 

y-j-l; 

pix_no-  (float)  y*WIDIHl+x+l; 
naw_bank-pix_no/65536; 
if  (naw  bank! -bank) 

{ 

bank«naw_bank ; 

Sat_Bank (bank)  ; 

) 

poaition»pix_no-naw_bank*65536; 

Diaplay  JPixal (pixal. poaition) ; 

} 

) 

gatchar () ; 

//Raaat  taxt  moda 
_aan  mov  ax, 3; 

_aam  int  lOh; 

/•Cloaa  filaa  and  fraa  axtandad  mamory*/ 
_fcloaaall()  ; 
xafraa (imaga)  ; 
xmfraa (raault) ; 

} 

/•Main  program  and a*/ 
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The  Erosion  Processor 


lincluda  <c : \c700\includa\atdio ,h> 
lincluda  <c: \c700\includa\math .h> 
lincluda  <c: \c700\includa\vicdaf a ,h> 
lincluda  <c: \c700\includa\vicfct* .h> 
lincluda  <c: \c700\includa\vicarror ,h> 
lincluda  <c : \c700 \includa\graph . b> 

/•Global*  bagin*/ 

int  imaga , raault , mod#, width, baigbt , mwidth, mbaight ; 
int  ouraag, WIDTH1 , HEIGHT 1 , __h#ight ; 
unaignad  cbar  palbuf [256J [3] ; 
void  _ far  *p; 

FILE  *infila,  *outfila; 

/•Global*  and*/ 

/•Bxtandad  naoory  data  ratriaval*/ 
int  dgat (handla, indax_x,  indax  y) 
int  handla, indax_x, indax_y; 

{ 

int  data; 
int  taat; 

ta*t«xmg#trow(tdat a, handla, (indax_x-l) *2, (indax_y-l) ,  2, 2048)  ; 
if  (taat ! »N0_ERR0R)  { print f ( “dgat  %i, %i, %i", handla, indax_x, indax_y) ; 
gatcbar ( ) ; ) 

raturn(data) ; 

) 

/•Bxtandad  mamory  data  placamant*/ 
void  dput (handla, indax_x, indax  y, data) 
int  handla , indax_x , indax  y; 
int  data; 

< 

int  dummy; 
int  taat; 

dummy  -  data; 

test-xng>utrow(fidummy,  handla,  (indax_x-l)*2,  (indax_y-l)  ,  2, 2048)  ; 
if  (taat ! -NO_ERROR)  { print f ("dput  %i, %i, %i", handla, indax_x, indax_y) ; 
gat char () ; } 

) 

/•Broaion*/ 
void  aroda() 

{ 

int  i, j, ii, J  j, indax_r, indax_c, max, taat; 

for  ( Jml; j<-haight; j++) 

{ 

for  (1-1; i<«width; i++) 

( 

max-0 ; 

for  ( Jj— mhaight/2;  jj<*  (mbaight /2) ;  Jj++) 

{ 

for  <ii— mwidth/2;ii<«(mwidth/2) ;ii++) 

{ 

i ndax_c-i +1 i ; 
indax_r«J+ j J; 

if  (indax  r>-144indax  r<-haightitindax_c>“lit indax  c<-vidth) 

{ 

taat -dgat (imaga, ind#x_r , indax_c) ; 
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if  (teat  >  max)  ux«t*it; 

> 

} 

} 

dput (result , j , i , max) ; 

> 

printf (“."); 

) 

) 

/•Video  node  control*/ 
void  Set  Mode ( ) 

< 

//320X200 
if  (aode«l)  { 

_asm  mov  ex, 13h; 

_asm  int  10b; 

WIDTH1»320; 

HEISHT1-200; 

} 

// 640X480 
if  (mode«2)  ( 

_asm  mov  ex, 4f02h; 

_esm  mov  bx,  101b; 

_esm  int  10b; 

WIMH1-640; 

HEIGHT1-480; 

) 

//800X600 
if  (mode»s3)  { 

_esm  mov  ex, 4f02h; 

_asm  mov  bx, 103b; 

_aam  int  lOh; 

WIDTH1-800; 

HE1GHT1-600; 

} 

//1024X768 
if  <moden4)  { 

_eam  mov  ex, 4f 02b; 

_eam  mov  bx, 105h; 

_eem  int  10b; 

WIDTH1*1024; 

HEIGHT 1-7 68; 

) 

) 

/•Palette  load*/ 
void  Set  Palette () 

{ 

int  i,j,k; 

for  (i-0;i<-255;i++) 

{ 

palbuf [i] [OJ-i/4; 
pelbuf [i] [1J-1/4; 
palbuf  [i]  [2]  -i/4; 

> 

3-256; 

k-0; 

p-tpalbuf; 

i«*(int)p; 

_asm  mov  dx,i; 

_aam  mov  bx,k; 

_aam  mov  cx, j; 

_aam  mov  ax, 1012b; 
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4am  int  10b; 

} 

/*Vidao  amatory  bank  control*/ 
void  S«t_Bank (bank_no) 
int  bank  no; 

< 

_aam  aov  ax, 4f 05b; 

_aam  aov  bx, 00b; 

_aaa  aov  dx,bank_no; 
aam  Int  10b; 

} 

/♦Pixal  display*/ 

void  Display_Pixal (pixal, position) 
int  pixal, position; 

( 

_aam  aov  as, [oursag] ; 

_asm  aov  al,byta  ptr  pixal; 

_asa  aov  bx, position; 

_asm  aov  as: [bx],al; 

) 


/*Main  program  bagi ns*/ 
aain  () 

{ 

float  pix  no; 
int  i, J,x,y, data; 

unsignad  int  bank*0, pixal, nawjbank, position; 
ebar  atring[15] , stringl[15] ; 
unsignad  char  dummy; 

/*Raad  in  imaga  info*/ 
infilaafopan  ('tfila*',  "r")  ; 

faoanf (infila,  *%d  %d  %d" ,  cmoda,  (width,  (height) ; 

fsoanf (infila, "%s",  string); 

fsoanf (infila, "%sn ,  stringl) ; 

faoanf (infila,  "id  %d",  (mwidth,  (mhaight) ; 

folosa (infila) ; 

/*Raad  in  imaga  and  initialise  axtandad  mamory*/ 

inf ile*f open (string, "r+b") ; 

xaallooata ((imaga, 2048) ; 

xmallooata (Crasult, 2048) ; 

for  (3«1;  J<"haight;  j++) 

{ 

for  (1*1;  i<-width;  i++) 

{ 

fsoanf  (Infila, "%c" , (dummy) ; 
data  •  (int)  dummy; 
dput  (imaga,  j,  1,  data) ; 

} 

) 

/♦Prooaaa  imaga*/ 
erode  (); 

/*Sava  arosion  rasults  to  bard  disk*/ 
outfilaafopan (stringl, "w+b") ; 
for  (3*1;  3<abaight;  3++) 

{ 

for  (1*1;  i<-width;  i++) 

< 

data  *  dgat (rasult, 3, i) ; 
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dummy— (unsigned  char)  data; 

Iprintf (outfila, "*c", dummy) ; 

) 

) 

/•Display  results*/ 

//Set  dislay  mode 
Set_Mode ( ) ; 

//Set_up  palette 
Set_Palette() ; 

//Set-up  VGA  memory 
Set_Bank (bank) ; 

_asa  aov  (our sag] , OAOOOh; 

//Display 

if  (height >  HEIGHT 1) 

_height -HEIGHT 1  ; 

else 

_height -height ; 
for  ( j-1; J<«_height; j++) 

( 

for  (i«l; i<«width; i++) 

( 

pixel  -  (unsigned  int)  (dget (result, j, i) ) ; 

x— i-1; 

yj-l; 

pix_no-  (float)  y*WIDTHl+x+l; 
ne«_bank-pix_no/65  536; 
i f  (nevjbank I -bank ) 

( 

bank-ne  wjaank  ; 

Set_Bank (bank)  ; 

) 

posit ion-pix_no-new_bank* 65536; 
DisplayJPixel (pixel, position) ; 

) 

} 

get char () ; 

//Reset  text  mode 
_asm  aov  ax, 3; 

_asm  int  lOh; 

/•Close  files  and  free  extended  memory*/ 
_fcloseall () ; 
xmfree  (image) ; 
xmfree (result) ; 

} 

/•Main  program  ends*/ 
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The  Closure  Processor 


linoluda  <c: \c700\includa\atdio .h> 
linoluda  <c: \c700\includa\math .h> 
linoluda  <o : \c700\includa\vicdaf a .h> 
linoluda  <c : \c700\includa\vic£cta . h> 
linoluda  <c: \c700\includa\vioarror .h> 
linoluda  <c: \c700\includa\gtaph.h> 

/•Global*  bagin*/ 

int  imaga, eaault , moda, width, haight , mwidth, mhaight ; 
int  ouraag. WIDTH1 , HEIBHT1 , _haight ; 
unaignad  char  palbuf [256] [3] ; 
void  _ far  *p; 

MIS  *infila,  *outfila; 

/•Global*  and*/ 

/•Kxtandad  mamory  data  ratriaval*/ 
int  dgat (handla, indax_x, lndax  y) 
int  bandla , indax_x, indax_y ; 

{ 

int  data; 
int  taat; 

taat-xmgatrow(£data,handla, (indax_x-l) *2, (indax_y-l) ,2,2048) ; 
if  (taat ! «NO_KRROR)  {printf ("dgat  %i, %i, %i", handla, indax_x, indax_y) ; 
gatcbar ( ) ; } 

raturn(data) ; 

) 

/•Extandad  mamory  data  placamant*/ 
void  dput (handla, indax_x, indax_y, data) 
int  handla , indax_x, indax_y ; 
int  data; 

< 

int  dummy; 
int  taat; 

dummy  —  data; 

taat-xmputrow(£dummy, handla,  (indax_x-l) *2, <indax_y-l)  ,  2,  2048) ; 
if  (taat ! -NOJBRROR)  (printf ("dput  %i, %i, %i", handla, indax_x, lndax_y) ; 
gat char () ; ) 

) 

/♦Cloaura*/ 
void  cloaa() 

{ 

int  i, j, ii, j j, indax_r, indax_c,max, taat; 

for  ( j«l; j<»haight; J++) 

( 

for  (i»l; i<-width; i++) 

< 

max-255 ; 

for  ( j j— mhaight/2; j j<-(mhaight/2) ; j j++) 

{ 

for  (ii— mwidtb/2; ii<- (mwidth/2) ; ii++) 

( 

indax_o«i+ii; 
indax_r«J+ j j; 

if  (indax  r>-l£ 4indax_r<-haightt4 indax  c>-lMindax  e<«width) 

{ 

taat -dgat (imaga, indax_r, indax_c) ; 
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if  (test  <  bu)  iux«t«tt  ; 

) 

) 

) 

dput (result , j , i , max) ; 

) 

printf (”."); 

) 

for  ( j-1; j<-height; j++) 

( 

for  (i-1; i<«widtta; i++) 

{ 

max-0; 

for  ( j  j— mheight/2; j j<- (mheight/2) ; j  j++) 

( 

for  (ii— mwidth/2;ii<«<mwidth/2)  ;ii++) 

( 

indax_c-i+ii; 
index_r-j+ j J; 

if  (index  r>— l&tindex  r<»height ttindex  c>-litindex_c<«width) 

{ 

test-dget (result , index_r , index_c) ; 
if  (teat  >  max)  max-test; 

) 

} 

) 

dput ( image ,  j ,  i , max) ; 

> 

printf  ( ”'.*')  ; 

) 

) 

/•Video  mode  control*/ 
void  Sat_Mode ( ) 

< 

//320X200 
if  (mode— 1)  ( 

_asm  mov  ax, 13h; 

asm  int  10b; 

WIDTH1-320; 

HKIGHT1-200; 

) 

//64 0X480 
if  (mode— 2)  { 

_aam  mov  ax, 4f02b; 

_aam  mov  bx, lOlh; 

_aam  int  10b; 

WIDTH1-640; 

HEIGHT1— 480; 

} 

//800X600 
if  (mode— 3}  { 

_aam  mov  ax, 4f02b; 

_asm  mov  bx, 103b; 

_asm  int  10b; 

WIDTH1-800; 

HEIGHT1-600; 

} 

//1024X768 
if  (mode— 4)  { 

_asm  mov  ax, 4f02h; 

_asm  r»ov  bx,  105b; 

_asm  int  10b; 

WIDTH1-1024; 
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HSIGHT1-768; 


/*Palette  load*/ 
void  Sat  Palette  () 

{ 

int  i,j,k; 

for  (i«0;i<-255;i++) 

( 

palbuf  [i]  [0] “i/4; 
palbuf [i]  [l]«i/4; 
palbuf [1] [2] -i/4; 

) 

j-256; 

k-0; 

p-tpalbuf  ; 
i-(int)p; 

_a»m  mov  dx, 1; 

_asm  mov  bx, k; 

_4im  mov  ex,  j; 

_asm  mov  ax, 1012b; 
aam  int  lOh; 

T 

/*Vidao  momory  bank  control*/ 
void  Sat_Bank (bank_no) 
int  bank_no; 

{ 

_asm  mov  ax, 4f 05h; 

_a»m  mov  bx, OOh; 

_asm  mov  dx,bank_no; 
aam  int  10b; 


/•Pixel  display*/ 

void  Display_Pixel (pixel, position) 
int  pixel, position; 

( 

_asm  mov  as, [oursag] ; 

_asm  mov  al.byte  ptr  pixel; 

_asm  mov  bx, position; 

_asm  mov  as : [bx] , al; 


/•Main  program  begins*/ 
stain  () 

{ 

float  pix_no; 
int  i, J,x,y,data; 

unsigned  int  bank-0, pixel, new_bank, position; 
char  string [15],  stringl(15]; 
unsigned  char  dummy; 

/•Read  in  image  info*/ 
inf ile-f open ("tfile", "r")  ; 

fscanf (infile,  ”%d  %d  %d" ,  (mode,  Svidth,  t height), 

fscanf (infile, "%s" ,  string); 

fscanf (infile, "%s",  stringl); 

fscanf (infile,  "%d  %d”,  tmwidth,  tmheight) ; 

f close (inf lie) ; 

/•Read  in  iaiaga  and  initialize  extended  stamory*/ 
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inflla-fopan (atring, "r+b”) ; 
mlloettt  (simaga,  2048)  ; 
xatUout*  (traault ,  2048) ; 
f or  ( j-1;  j<-halght;  j++) 

( 

for  (1*1;  l<»width;  1++) 

< 

facanf  (inflla, "tc” , tdumrny) ; 
data  *  (int)  dummy ; 
dput ( imago , j , i , data) ; 

) 

) 

/•Procaaa  imaga*/ 
dilata  ()  ; 

/*Sava  cloaura  rasuita  to  hard  diak*/ 
outfila-fopan (atringl, "w+b”) ; 
for  (j*l;  j<*haight;  j++) 

< 

for  (1*1;  K-width;  i++) 

( 

data  *  dgat (imaga ,3,1); 
dummy* (unaignad  char)  data; 
fprintf  (outfilo,  "%c",dun*ny)  ; 

> 

) 

/•Diaplay  raaulta*/ 

//Sat  dialay  moda 
Sat_Hoda  ()  ; 

/ / Sat_up  palatta 
Sat__Palatta  ( )  ; 

//Sat -up  VGA  mamory 
Sat_Bank (bank) ; 

_aam  mov  [ouraag] , OAOOOh; 

/ /Diaplay 

if  (haight>  HEIGBT1) 

_hoight*HEIGHTl  ; 

alaa 

_haight*halght ; 
for  ( j*l; J<*_haight; j++) 

{ 

for  (i*l;i<*width; i++) 

( 

pixal  ■  (unaignad  int)  (dgat (imaga, j, i) ) 

x*i-l; 

y»i-l; 

pix_no*  (float)  y*W!DTHl+x+l; 
naw_bank«p i x_no / 6 5 5 3 6  ; 
if  (naw_bank I -bank ) 

< 

bank*now_bank  ; 

Sat  Bank (bank)  ; 

} 

poaition-pix_no-naw_bank* 65536; 
DiaplayJPixal (pixel, poaition) ; 

) 

} 

gatchar () ; 
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//Raaat  taxt  mod* 

_aam  bov  ax, 3 ; 

_aaa  int  10b; 

/•Closa  filaa  and  fraa  axtandad  mamory*/ 
_fclo»aall () ; 
xjafraa  (lmaga)  ; 
xafraa (raault) ; 

) 

/*Maln  program  anda*/ 
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I 

|  The  Opening  Processor 


# include  <c: \c700\include\atdio .h> 

# include  <c: \c700\include\math .h> 

•include  <c: \c700\include\vicdef a .b> 

•include  <c: \c700\include\vicf cts ,h> 

•include  <c : \c700\include\vicerror .h> 

•Include  <c: \c700\include\graph.h> 

/•Global*  begin*/ 

int  image , result , mod* , width, height , mwidth , mhalght ; 
int  ouraag,  WIDTH1,  HEIGHT l,__h«ight; 
unsigned  char  palbuf [256]  [3]  ; 
void  _ far  *p; 

FILE  * infile,  ‘out file; 

/•Global*  and*/ 

/•Extended  memory  data  retrieval*/ 

Int  dget (handle, index_x. Index  y) 

Int  handle, Index  x, lndex^y; 

{ 

Int  data; 
lnt  test; 

teat*xmgetrow(tdata, handle, (index_x-l) *2 , (index_y-l)  ,  2, 2048) ; 

1£  (test ! «N0_ERR0R)  { print f("dget  %i, *1, %1", handle, index  x, index  v); 
getchar  < ) ; } 

return (data) ; 

> 

/•Extended  memory  data  plaoeaient*/ 
void  dput (handle, index_x, index  y, data) 

Int  handle, lndax_x, index_y; 
int  data; 

{ 

int  dummy; 
int  test; 

dummy  «  data; 

teat—xj^putrow (aduimny,  handle,  (index  x-l>*2,  (index_y-l) ,  2, 2048) ; 

1£  (test ! «NO_ERROR)  { print £ ('dput  %i , %1, %i" , handle, index  x, index  y); 
getchar ( ) ; ) 

} 

/•Opening*/ 
void  open() 

{ 

int  1 ■ 1. iijj , lndex_r , lndex_c , max , te  at ; 

for  ( j»l; j<«height;3++) 

{ 

for  (l*l;i<»width;i++) 

( 

max»0 ; 

for  (j Je-mheight/2; j j<« (mheight/2) ; jj++) 

( 

for  (ii— mwidth/2;ii<-(mwidth/2);ii++) 

{ 

index_c»i +1 i ; 
index_r*3+ J J; 

if  (index  r>-l£tindex_r<>height££index  c>»l£t index  c<-width) 

( 

test-dget  (image,  index_r,  index  c) ; 
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if  (test  >  bax)  su»x-tsst  ; 


dput (result , J, i.max) ; 

) 

print f  ; 

> 

for  ( j“l;  j<«hsight;  j++) 

( 

for  (i*l; i<*width; i++) 

{ 

max*255; 

for  ( j j— mheight/2; j j<« (mheight /2 ) ; jj++) 

< 

for  (ii*-mwidtb/2; ii<- (mwidth/2) ; ii++) 

< 

index_e«i+ii; 
index_r* j+ j  j ; 

if  (index_r>»lt* index  r<-beigbt i t index_c>«li t indax_c<«width) 

{ 

test-dget (result , index_r , index_o) ; 
if  (test  <  max)  max-test ; 


dput (image, j, i,msx) ; 

) 

printf (* . ')  ; 

) 

) 

/•Video  mode  control*/ 
void  Set  Mode() 

{ 

/ /320X200 
if  (mode— 1)  ( 

_ssm  mov  ax, 13h; 

_asm  int  lOh; 

WIDTH1»320; 

HEIGHT1-200; 

} 

// 640X480 
if  (mode— 2)  { 

_asm  mov  ax, 4f 02b; 

_asm  mov  bx, 101b; 

_asm  int  lOh; 

WIDTH1-640; 

HBIGHT1-480; 

> 

//800X600 
if  (mode- 3)  { 

_asm  mov  ax, 4f02h; 

_asm  mov  bx,  103h; 

asm  int  10b; 

WIDTH1-800; 

HEIGHT 1*600; 


//1024X768 
if  (mode— 4)  ( 

_asm  mov  ax, 4f02b; 
_asm  mov  bx, 105b; 
_asm  int  10b; 
WIDTH1-1024; 
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HXXQHT1-768; 

) 

} 

/•Palotto  load*/ 
void  Sot  Palotto() 

{ 

int  i,j,k; 

for  (i-0;i<-255;i++) 

{ 

palbuf [i] [0J-1/4; 
palbuf [i] [1J-1/4; 
palbuf [i] [2]-i/4; 

) 

3-256; 

k-0; 

p-t palbuf ; 
i-(int)p; 

_asm  bov  dx, 1; 

_a»m  bov  bx, k; 

_aaa  aov  ex, j; 

_aaa  aov  ax, 1012h; 
aaa  int  10b; 

) 

/*Vidoo  aoaory  bank  eontrol*/ 
void  Sot_Bank(bank_no) 
int  bank_no; 

_aaa  aov  ax, 4f05h; 

_asa  aov  bx, OOh; 

_aaa  aov  dx,bank_no; 

_asa  int  10b; 

) 

/*Pixol  display*/ 

void  Display_Pixol (pixol, position) 
int  pixol, position; 

{ 

_asa  aov  os, [oursog] ; 

_asa  aov  al.byto  ptr  pixol; 

_asa  aov  bx, position; 
asa  aov  os:[bx],al; 

T 


/*Main  program  bogins*/ 
aain  () 

{ 

float  pix_no; 
int  i, j,x,y,data; 

unsignod  int  bank-0, pixol, now_bank, position; 
ebar  string [ 15 ] , stringl [ 15 ] ; 
unsignod  char  duaay; 

/♦Road  in  iaago  info*/ 
infilo-fopon  (’‘tfilo",  "r") ; 

fseanf (infilo,  *%d  %d  %d",  taodo,  fiwidtb,  Cboigbt); 

f seanf (infilo, "4i",  string) ; 

fsoanf (infilo, "%s",  stringl); 

fseanf (infilo,  "%d  %d”,  Cawidtb,  taboigbt) ; 

feloso (infilo) ; 

/*Road  in  imago  and  initialixo  oxtondod  aoaory*/ 
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infila-fopan (string, "r+b") ; 
xmallocata (£ imaga, 2048) ; 
xmallocata  (trasult,  2048)  ; 
for  (J»l;  j<«h«ight;  j++) 

{ 

lor  (1*1;  i<«¥idth;  1++) 

< 

fscanf  (infila, "%c" , i dummy) ; 
data  -  (lnt)  dummy ; 
dput (imaga, 3,  i,  data); 

) 

) 

/•Proctaa  imaga*/ 
opan ( ) ; 

/*Sava  opaning  raaulta  to  bard  disk*/ 
outfila-fopan (atringl, "a+b") ; 
for  (3-1;  j<-haight;  j++) 

< 

for  <1*1;  K-width;  i++) 

< 

data  “  dgat (imaga, 3,  i); 
dvunmy*  (unaignad  char)  data; 
fprintf (outfila, "»c", dummy) ; 

) 

} 

/•Display  raaulta*/ 

//Sat  dislay  moda 
Sat_Moda() ; 

/ /Sat_up  palatta 
Sat_Palatta ( ) ; 

//Sat -up  VCi  mamory 
Sat_Bank (bank) ; 

_aam  mov  [ouraag] , OAOOOh; 

//Display 

if  (baigbt>  HEIGHT 1) 

_haigbt-HEIGHTl ; 

alsa 

_haight«haight  ; 
for  ( j*l; j<*_halght; j++) 

{ 

for  (i-l;i<-widtb;i++) 

( 

pixel  *  (unaignad  int)  (dgat (imaga, j, i) ) ; 

x-i-1; 

y-j-l; 

pix_no-  (float)  y*HXDTHl+x+l; 
naw_bank-pix_no/6553€; 
if  (nan  bank! -bank) 

( 

bank— na v_bank  ; 

Sat  Bank (bank) ; 

} 

po a it i on-pi x_no -na w_bank* 6 5 5 3 6 ; 

Display  Pixal (pixal, position) ; 

} 

) 

gatchar ( ) ; 
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//Raaat  taxt  moda 
_asm  bov  ax,  3; 

_aaa  int  10b; 

/*Cloaa  fllaa  and  free  axtandad  memory*/ 
_foloaaall  () ; 
xafree (image) ; 
xmfraa (raault ) ; 

> 
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The  Windowed  Convolution  Processor 


iinoluda  <c: \c700\include\atdio.h> 
iinoluda  <c: \c700\includa\graph.h> 
iinoluda  <c: \c700\includa\conio.b> 
iinoluda  <c: \c700\inoluda\atring.h> 
iinoluda  <o : \o700\includa\atdlib . h> 
iinoluda  <o:\o700\inaluda\math.h> 

idafina  RGB(r,g,b) (0x3F3F3FL  a  ( (long) (b)  «  16  |  (g)  «  8  |  (r) ) ) 

/•Global*  bagin*/ 

ohar  atring[80] , stringl[80] , aavafila[80] , confila[80] ; 
unsignad  ohar  rad [256] ,blua [256] , graan [256] , cp, d[3] [1024] ; 

int  nun, 1, J,k, ix, jx, xdim, ydim, mod*, haadar , updown,  xbound,  ybound, kllx,  biaa  flag; 
float  kl[20] [20],k2[20] [20] , tampl, positive, nagativa; 

FZU  *input_fila,  *inpalette,  *infila,  *out,  *incon; 

/•Global*  bagin*/ 

/•Main  program  bagin**/ 

Min  () 


/*Raad  prooadura  information*/ 
inf ila»f opan ( "tf ila" , "r") ; 
faoanf (infila, "%i",smode) ; 
f aoanf (infila, "*a" , atring) ; 
faoanf (infila, "%a" , atringl)  ; 
faoanf (infila, *»i", sxdim) ; 
faoanf (infila, "%i" , sydim) ; 
faoanf (infila, "%i" , sheader) ; 
faoanf (infila, "%i" , s updown)  ; 
faoanf (infila, "%a", aavafila) ; 
faoanf (infila, "«s", confila) ; 
faoanf (infila, "%i" , Sbiaa_flag) ; 

/•Opan  filaa*/ 

input_fila-fopan (atringl, "r+b") ; 
inpalatta-fopan( atring, "r+b")  ; 
incon-fopan (confila,  "r")  ; 
out*fopan (aavafila, "w+b") ; 

/*Raad  in  convolution  Mtrix*/ 
faoanf (inoon, "%i" , (nun) ; 
negative-posit ive-0 . 0 ; 
for  ( J"0; j<num; J++) 

< 

for  <i»0; i<nun; 1++) 

{ 

faoanf (ineon,"%f", sk2[ j] [i]); 
if  (k2 [j] [i] <0)  negative— k2  [3  ] [i], 
if  (k2 [ J] [i] >0)  positiva+-k2[3J [i] , 
> 


/•Baad  in  palatta*/ 
for  (1-0; i<-255; i++) 

{ 

faoanf (inpalatta, "%c" , sop) ; 
red[i]-cp; 

) 

for  (i-0;  i<-255;  i++) 

{ 

faoanf (inpalatta, "%c" , Sop) ; 
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green [i]“cp; 

> 

for  (i-0;i<-255;i++) 

{ 

f acanf (inpalette, "%e" , Cep) ; 
blue [i]«op; 

} 

if  (header  l«0) 

{ 

for  (i  ■  1;  i  <-  haadar;  i++) 

{ 

faoanf (input_file, "%c", Cep) ; 

} 

) 

/*Sat  vidao  mode*/ 

if  (mode““l)  _aatvideomode (  MRKS256COLOR) ; 
if  (moda»2)  “aetvideomode  (~VRBS256COLOR)  ; 
if  (mode““3)  _eatvidaomoda  (  SRKS256COLOR)  ; 
if  <mode>“4)  _aatvidaomoda (_XR2S256C0L0R) ; 

/♦Enable  palette*/ 
for  (i-0;i<-255;i++) 

{ 

_raoeppa latte (i , ROB (red [1 ] /4 , graan [i] /4 , blua [i ] /4 ) ) ; 

) 

/•Dieplay  original  image*/ 
for  (i»0; i<ydim;  i++) 

{ 

for  ( j“0; j<xdim; j++) 

{ 

f acanf  (input_file, "%c" , Cep) ; 
k  «  cp; 

_aatcolor (k) ; 

if  (updown  «*  0)  _aatpixal ( j, i) ; 
if  (updown  »■  1)  aatpixel ( J , ydim-l-i) ; 

} 

> 

/*Vmx:torm  convolution  for  arbitrary  bordera  and  diaplay  raaulta*/ 
templ-0; 

for  (i-0;i<ydim;i++) 

{ 

for  ( j«0; j<xdim; J++) 

t 

for  (ix-0; ix<num; ix++) 

< 

for  ( jx“0; jx<nua; jx++) 

< 

xbound  »  j-l+jx; 
ybound  -  i-l+ix; 

if  (xbound  <  0)  xbound  *  -xbound; 
if  (ybound  <  0)  ybound  ■  -ybound; 

if  (xbound  >  (xdim-1) )  xbound  -  xdim-1- (xbound- (xdim-1) ) ; 
if  (ybound  >  (ydim-1))  ybound  ■  ydim-1- (ybound- (ydia-1) ) ; 
kl[ix] [jx] “(float)  _getpixel (xbound, ybound) ; 
templ+“  k2 [ix] [jxl*kl[ix] [Jxl ; 

} 

) 

k  “  (int)  tempi; 
if  (!biaa  flag) 

{ 

if  (k>255)  k-255; 
if  (k<0)  k“0; 


Appendix  M  The  Windowed  Convolution  Processor 


M3 


tampl-O; 

If  (i>“( (int) (num/2 . 0) +1) ) 

< 

kllx»d[  (i-  ( (int)  (num/2 . 0)  4-1) )  %  ( (lot )  <num/2 . 0) +1)  ]  [j]; 

_aatcolor (kllx) ; 

aatpixal (j,i- (int) (num/2. 0+1)  ); 

T 

if  (biaa_flag) 

{ 

if  (k<0)  d[i* ( (int) (num/2 . 0) +1) ] [j] ~ (unsigned  char)  (k/ (2 . 0*nega- 

tiva) +128) ; 

if  (k>-0)  d[i% ( (int) (num/2 .0) +1) ] [ J]»  (unaignad  char)  (k/ (2 .0*poai- 

tiva) +128) ; 

) 

alaa 

{ 

d[i%( (int) (num/2. 0)+l) ] [j)« (unsigned  char)  k; 


for  (i«ydim-l- ( (int) (num/2 .0) +1) ; i<ydim; i++) 

( 

for  (j-0; J<xdim; j++) 

( 

k  -  d[i  %  ((int) (num/2. 0)+l)] [j]; 
_aatcolor (k) ; 

_aatpixal (j.i)  ; 

) 

) 

/•Write  raaulta  to  hard  disk*/ 
for  (i-0; i<ydim;  i++) 

{ 

for  ( j»0; j<xdim; j++) 

( 

k  -  _gatpixal ( J ,  i ) ; 
fprintf (out, "%c",k) ; 

) 

) 

/*Cloao  filaa*/ 

_fcloaaall ()  ; 

/♦Pause*/ 

gatch(); 


/•Resat  taxt  moda*/ 
setvideomode ( _DEF AOLTMODE ) ; 

> 

/•Main  program  ends*/ 
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The  Value  Thresholding  Processor 


lincluda  <c: \c700\includ*\atdio.h> 
lincluda  <c:\c700\includ*\math.h> 
lincluda  <o: \c700\includ*\graph.h> 

/•Global*  bagin*/ 

lot  lmaga, mod*, width, halght, low*r_tbraabold; 
int  ouraag, WIS7B1, HEIGHT1, upp*r_thr*ahold; 
unsigned  obar  palbuf [256] [3) ; 
obar  string [IS] , atringl[15] ; 

void  _ far  *p; 

/•Global*  and*/ 

FILE  *infila,  *outfila; 

/*Vidao  mod*  oontrollar*/ 
void  Sat_Hoda ( ) 

{ 

/ /320X200 
if  (mode^l)  { 

_ a  am  mov  ax,  13b; 

_asm  int  lOh; 

WIDTH1-320; 

HKIGHT1-200; 

> 

//640X480 
if  (moda»2)  { 

_a*m  mov  ax, 4f02h; 

_asm  mov  bx, 101b; 

_asm  int  lOh; 

WIDTH1-640; 

HEIGHT1-480; 

//800X600 
if  (moda—3)  { 

_aam  mov  ax, 4f02b; 

_asm  mov  bx, 103b; 

_a*m  int  lOh; 

TODTH1-800; 

HEIGHT1-600; 

) 

//1024X768 
if  (mod*“4)  { 

_aam  mov  ax, 4f02b; 

_aam  mov  bx, 105b; 

_aam  int  lOh; 

WIDTH1-1024; 

HXIGHT1-768; 

} 

> 

/•Palatt*  load*/ 
void  S*t_Palatt* ( ) 

( 

int  i,  j,  X; 

for  (i«0;i<-255;i++) 

< 

palbuf [i] [0]-i/4; 
palbuf [i] [l]-i/4; 
palbuf  [i]  [2] **i/4; 

) 

3-256; 
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k-0; 

p-Cpalbuf; 

i-(int)p; 

_asm  aov  dx, i; 

_asm  aov  bx, X; 

_asa  aov  ox. 3; 

_asm  aov  ax, 1012b; 
aaa  int  10b; 

} 

/•Vldao  mamory  bank  oontrol*/ 
void  Sat_Bank (bank_no) 
int  bank  no; 

( 

_asa  aov  ax, 4f 05b; 

_asa  aov  bx, 00b; 

_aa a  aov  dx,bank_no; 
aam  int  10b; 

T 

/•Pixel  Display*/ 

void  Diaplay_Pixal (plxal, position) 
int  plxal, position; 

{ 

_aaa  aov  as,  [ our sag] ; 

_asa  aov  al.byta  ptr  plxal; 

_asm  aov  bx, position; 

_asa  aov  as : [bx] , al; 

) 


/•Main  program  begins*/ 
main  () 

( 

float  pix_no; 
int  1, j,  x7y. data; 

unsign ad  int  bank-0, plxal, naw_bank, position; 
unsignad  cbar  dummy; 

/•Read  in  imaga  info*/ 
infile-fopenC'tfile",  "r") ; 

fsoanf (infila,  ~%d  %d  %d",  tmode,  6 width,  tbelgbt); 

f soanf (infila, "%s" ,  string) ; 

fsoanf (infila, stringl) ; 

fsoanf (infila, "%1" ,  supper_tbresbold) ; 

fsoanf (infila, "%i" ,  £lowar_tbrashold) ; 

folosa (infila) ; 

/*Raad  in  imaga,  manipulata  imaga,  and  display  rasults*/ 

//Sat  display  moda 
Sat_Moda () ; 

//Sat_up  palatta 
Sat_Palatta () ; 

//Sat -up  VGA  mamory 
Sat_Bank (bank) ; 

_asm  mov  [oursag] , OAOOOb; 

//Raad  in  data,  tbrashold,  writa  to  bard  disk,  and  display  imaga 
inf ile-f open (string, "r+b") ; 
outfile-fopen (stringl, "w+b") ; 
for  (j-l; j<»haight;j++) 

< 

for  (l-l;i<-width;i++) 
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faoanf  (infila,  "%e",  sdummy) ; 
datasdummy; 

if  (data>uppar_thra»hold)  data*upper_thrashold; 

if  (data<lowar_tbraabold)  data»lowar_ttaraahold; 

dummy*  (unaignad  coir)  data; 

fprintf (outfila, "%c" , dummy) ; 

pixal  ”  (unaignad  int)  data; 

x»i - 1 ; 

pixjno*  (float)  y*WIDTHl+x+l; 
naw__bank»pix_no/655 36; 
if  (naw_bank!*bank) 

( 

bank«naw_bank; 

Sat_Bank (bank)  ; 

) 

poai  t  i  on«pix_no  -nat*_bank*  65536; 

Diaplay_Pixal (pixal, poait ion)  ; 


gat char ( ) ; 

//Raaat  taxt  moda 
_aao  mov  ax,  3  ; 
_aam  int  10b; 

/*Cloaa  filaa*/ 
_fcloaaall ()  ; 


/•Main  program  anda*/ 
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The  Occurrence  Thresholding  Processor 


linoluda  <c : \c700\includa\stdio .h> 
linoluda  <e: \e700\includa\math .b> 
linoluda  <c: \o700\includa\viedaf s .h> 
linoluda  <o : \o700\inoluda\viof at* .h> 
linoluda  <c : \c700\ineluda\vioarror ,h> 
linoluda  <o: \c700\includa\grapb.b> 

/•Global*  bagin*/ 

int  imaga, moda , width, baight , moat_fraq; 
int  ouraag, WIDTB1 , HEIGHT1 , _haigbt ; 
unsign ad  ohar  palbuf [256] [3] ; 
char  string [IS] , atringl[15] ; 
float  waigbt [256] ,_tbrasbold; 

void  _ far  *p; 

/•Global*  and*/ 

FILE  *infila,  *outfila; 

/•Kxtandad  mamory  data  ratriaval*/ 
int  dgat (bandla, indax_x, indax_y) 
int  bandla , indax_x, lndax  y; 

[ 

int  data; 
int  tast; 

tast-xmgatrow ((data, bandla,  (indax_x-l) *2,  (indax_y-l) , 2, 2050) ; 
if  (tast  f  -NO_ERROR)  { print f  ("dgat  %1,  %i,  %!**,  handla,  indax  x,  lndax  y) ; 
gatobar();} 

raturn (data) ; 

) 

/•■xtandad  mamory  data  placamant*/ 
void  dput (bandla, indax_x, indax_y , data) 
int  bandla , indax_x, lndax_y ; 
int  data; 

{ 

int  dummy; 
int  tast; 

duany  -  data; 

tast-xmputrow( (dummy, bandla,  (indax_x-l) *2, (indax_y-l) ,  2, 2050)  ; 
if  (tast!-NO_RRROR)  (printf ('dput  %i, %i, %1", bandla, indax_x, indax_y) ; 
gatobar ( ) ; ) 

) 

/•Obtain  histogram*/ 
void  bisto () 

{ 

int  i,J, indax; 
unsignad  cbar  op; 

infila-fopan (string, "r+b") ; 
for  (i-0;K256;i++) 

( 

waigbt [i] -0.0; 

) 

for  ( j-1; j<-haight; j++) 

{ 

for  (i-1; i<-widtb; i++) 

{ 

fsoanf (infila, "%c" , Sep) ; 
indax-cp; 
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weight [index] +«1 . 0; 
dput ( image , j, i, index) ; 

) 

if  (j«4— 0)  printfr.'); 

1 

most_freq«0; 

for  7i»0;i<256;i++> 

{ 

if  (weight [i] > weight [moat  f req] )  moat  freq— i; 

) 

fclose  (i';file)  ; 

) 

/•Occur ranee  thresholding*/ 
void  threehold  by  occurence ( ) 

< 

int  i , j , index; 
float  test; 

histo () ; 

for  (3*1;  j<-heigbt;  j++) 

{ 

for  (i-l;i<-wldth;i++) 

{ 

index-dget (image,  j.i); 
test-weight [index] ; 

while  ( (test<  threshold)  ££  (index<most  f req) ) 

( 

index** ; 

test-weight [index] ; 

} 

test-weight [index] ; 

while  ( ( t e st <_thre sho Id)  ss  (index>most  freq) ) 

( 

index-; 

test-weight [index] ; 

} 

if  (index>255)  index-255 ; 
dput ( image , j , i , index) ; 

} 

if  (j%4— — 0)  printfr.'); 

) 

) 

/•Video  mode  controller*/ 
void  Set_Mode ( ) 

( 

//320X200 
if  (mode— 1)  { 

_asm  bov  ax, 13h; 

_asm  int  lOh; 

WZDTH1— 320; 

BSZSBZ1-200; 

) 

//640X480 
if  (mode— 2)  { 

_asm  mov  ax, 4f02h; 

_asm  mov  bx, lOlh; 

_asm  int  lOh; 

WIDTH1-640; 

BZIGBT1-480; 

> 

//800X600 
if  (mode— 3)  { 

_asm  mov  ax, 4f02h; 
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_aaa  aov  bx, 103b; 

••a  int  10b; 
WIDTH1-800; 
HEIGHT1-600; 

> 

//1024X768 
If  (mods— 4}  { 

_aaa  aov  ax,  4f02h; 
_aaa  aov  bx, 105b; 
_asa  int  10b; 
WIDTB1-1024; 
HKIGHT1-768; 


/*Palotto  load*/ 
void  Sat_Palotta() 

{ 

Int  1,  j , k; 

for  (1-0;1<-255;1++) 

( 

palbuf [1] [0] “1/4 
palbuf [i] [1] “1/4 
palbuf [1] [2J “1/4 
) 

j“256; 

k«0; 

p»£palbuf ; 

1“ (int) p; 

_aam  aov  dx, 1; 

_a«a  aov  bx, k; 

_aam  aov  cx, J; 

_aaa  aov  ax, 1012h; 
aaa  int  lOh; 


/•Vidao  maaory  bank  oontrollar*/ 
void  Sot JBank (bank_no) 

Int  bank_no; 

t 

_aaa  aov  ax, 4f 05h; 

_aaa  aov  bx, OOh; 

_aaa  aov  dx,bank_no; 
aaa  int  10b; 


/*Pixal  display*/ 
void  Display_Pixal (pixal, position) 
int  pixal, position; 

_asa  aov  os, [oursog] ; 

_asa  aov  al.byta  ptr  pixal; 

_asa  aov  bx, position; 

_asa  aov  as:[bx],al; 


/*Main  program  bagins*/ 
main  () 

{ 

float  pix_no; 
int  i, j.x,y, data; 

unsignad  int  bank“0, pixal, naw_bank, position; 
unsignad  cbar  dummy; 
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/•Read  in  iawge  info*/ 
infile-fopen ("tfila* , "r")  ; 

facanf (infile,  **<1  %d  %d',  (mods,  Swidth,  fiheight) 
facanf (infile, "%a",  string); 
fscanf (infilo, stringl) ; 
facanf (infix*, "%f»,  t_tbreshold) ; 
f close (inf ila) ; 

/*Initiali*a  extended  memory*/ 
xaallocate (« Image, 2048) ; 

/•Process  imago*/ 
throahold_by_occuronco () ; 

/*Savo  roaulta  to  hard  disk*/ 
outfile-fopen (atringl, "w+b") ; 
for  (j-1;  j<-height;  j++) 

{ 

for  (i-l;  i<»width;  i++) 

( 

data-dget (image, j, i) ; 
dummy- (unsigned  char)  data; 
fprintf (outfilo, "%e", dummy) ; 

} 

/•Display  results*/ 

//Set  display  mode 
Set_Mode()  ; 

/ /Set_up  palette 
Set_Palette() ; 

//Set-up  VGA  memory 
Set_Bank (bank) ; 

_asm  mov  [ourseg] , OAOOOh; 

/ /Display  image 
if  (height>  HEIGHT 1) 

_heigbt«HKIGHTl ; 

else 

_heigbt«height ; 
for- (j-1; j<— _height; j++) 

< 

for  (i-l; i<-width; 1++) 

{ 

pixel  -  (unsigned  int)  (dget (image, J, i) ) ; 

x-1-1; 

y-J-1; 

pixjno-  (float)  y*HIDTHl+x+l; 
new_bank*pix_no/65536; 
if  (new_bank! -bank) 

{ 

bank-new_bank; 

Set  BenkTbank); 

) 

posit ion-pix_no-new_bank* 6553 6; 

Display_Pixel (pixel, position) ; 

) 

) 

getchar() ; 

//Reset  text  mode 
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_aam  mov  ax, 3 ; 

_aea  int  lOh; 

/*Cloa«  files  and  free  axtandad  memory*/ 
_fcloaeall () ; 
xmfree (image) ; 

) 

/•Main  program  ands*/ 
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The  Square  Contrast  Manipulation  Processor 


iincluda  <c : \c700\lnclud*\*tdio . h> 
# include  <c: \c700\includa\math ,b> 
Iincluda  <o: \c700\includa\graph.h> 

/♦Global*  begin*/ 

lot  image, mod*. width, height; 

Int  ouraag, WIDTH1, BEIGBT1; 
unsigned  obar  palbuf [256] [3] ; 
ebar  string[15] , atrlngl[15] ; 
void  _ far  *p; 

FILS  *lnfile,  * out f 11a; 

/* Global*  and*/ 

/*Vldao  mod*  control*/ 
void  Sot  Modo ( ) 

{ 

//320X200 
If  (mode— 1)  { 

_a*m  mov  ax, 13h; 

_a*m  lnt  10b; 

WIDTB1-320; 

BBIGBT1-200; 

) 

// 640X480 
If  (mod#— 2)  { 

_a*m  mov  ax, 4f02b; 

_a*m  mov  bx, 101b; 

_a*m  int  lOh; 

WIDTB1-640; 

BEIGBT1-480; 

) 

//800X600 
if  (mode— 3)  { 

_a*m  mov  ax, 4f02h; 

_a*m  mov  bx, 103b; 

_a*m  int  lOh; 

WIDTB1-800; 

BXXGBT1-600; 

} 

//1024X768 
if  (mode— 4)  { 

_asm  mov  ax, 4f02b; 

_a*m  mov  bx, 105b; 

_a*m  int  10b; 

WIDTB1-1024; 

BXIGBT1-768; 

) 

) 

/•Palette  load*/ 
void  Set_Palette ( ) 

{ 

int  i,j,k; 

for  (i-0;K«255;i++) 

{ 

palbuf [i] [0] “i/4; 
palbuf [i] (l]-i/4; 
palbuf [i] [2]-i/4; 

> 

3-256; 
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k-0; 

p>(pilbuf; 

i«(int)p; 

_asm  bov  dx, i; 

_aaa  bov  bx,k; 

_asm  aov  ox, j; 

_aam  bov  ax, 1012h; 

_aaa  lot  lOh; 

) 

/•Vidao  mamory  bank  control*/ 
void  Sat_Bank (bank_no) 
int  bank_no; 

{ 

_asB  bov  ax, 4f05h; 

_asm  bov  bx, OOh; 

_asB  sov  dx,bank_no; 

_aaa  int  10b; 

T 

/*Plxal  display*/ 

void  Display_Pixal (pixal, poaition) 
int  pixal, poaition; 

{ 

_aam  bov  as, [oursag] ; 

_asB  aov  al.byta  ptr  pixal; 

_aaa  aov  bx, poaition; 
aaa  aov  as:[bx],al; 

} 

/•Main  program  bagina*/ 
main  () 

{ 

float  pix_no, tamp; 
int  i, j,x,y, data; 

unsignad  int  bank-0, pixal, naw_bank, position; 
unsignad  char  dummy; 

/*Raad  in  imaga  info*/ 
infila-fopan  C“tfila" , "r") ; 

fsaanf (infila,  *%d  %d  %d" ,  (mods,  (width,  chaigbt) ; 
faeanf  (infila,  "%s" ,  string) ; 
faaanf (infila, "%s",  stringl) ; 
feloaa (infila) ; 

/*Raad  in  data,  aanlpulata,  display  rasults,  and  stora  to  hard  disk*/ 
//Sat  display  aoda 
Sat_Moda() ; 

//Sat_up  palatta 
Sat_P alatta ( ) ; 

//Sat-up  VGA.  aaaory 
Sat_Bank (bank) ; 

_asm  mov  [oursag] , OAOOOh; 

//Raad  in  data,  aanlpulata,  display  rasulta,  and  stora  to  hard  disk*/ 
infila-fopan (string, ”r+b") ; 
outfila-fopan (stringl, "w+b") ; 
for  ( j-1; j<-haight; J++) 

( 

for  (i-l;K«width;i++) 

{ 

faeanf (infila, "%c" , (dummy) ; 
data-duaay; 
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trap- (float ) data; 

temp/-256.0; 

temp— teap*temp*256 . 0; 

data- (lnt) temp; 

dummy— (unalgnad  char)  data; 

fprintf (out file, "%c", dummy) ; 

pixel  -  (unsigned  lnt)  data; 

x— 1-1; 

y«j-l; 

pix_no-  (float)  y*WIDTHl+x+l; 
new_bank—pi x_no / 65  5  3  6  ; 

1£  (new_bank! -bank) 

( 

bank-new_bank  ; 

Set  Bank (bank) ; 

) 

poaition-pix_no-new_bank*65536; 
Display_Pixel (pixelTposltion) ; 

) 


getchar ( ) ; 

//Reset  text  mode 
_asm  bov  ax, 3; 

_asm  lnt  lOh; 

/•Close  files*/ 
_£oloseall() ; 

> 

/•Main  program  ends*/ 
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The  Cube  Contrast  Manipulation  Processor 


#include  <c: \o700\include\etdio . h> 
finolude  <c:\c700\include\math.h> 
tinolude  <o: \c700\include\grapb.b> 

/•Globala  begin*/ 
int  image, mode, width, height; 
int  ouraeg, WIDTH1,  HKIGHT1; 
unsigned  char  palbuf [256] [3]; 
char  atrlng[15] , atringl [15] ; 
void  _ far  *p; 

FILE  * infile,  * out file; 

/•Globala  and*/ 

/•Video  mode  control*/ 
void  Set_Mode ( ) 

< 

//320X200 
if  (mode— 1)  { 

_asm  mov  ex, 13b; 

_eem  int  lOh; 

WIDTH1-320; 

HEIGHT 1“2  00; 

) 

//640X480 
if  (mode— 2)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, 101b; 

_aam  int  lOh; 

WIDTH1-640; 

HEIGHT1-480; 

) 

//800X600 
if  (mode— 3)  { 

_aem  mov  ax, 4f02b; 

_aam  mov  bx, 103b; 

_asm  int  lOh; 

HIDTH1-800; 

HEIGHT1-600; 

> 

//1024X768 
if  (mode— 4)  ( 

_aam  mov  ax, 4 f 02b; 

_aam  mov  bx, 105b; 

_aam  int  10b; 

WIDTH1-1024; 

HKIGHT1-768; 

> 

) 

/•Palette  load*/ 
void  Set_P alette () 

{ 

int  i,j,k; 

for  (i*0 ; i<«255 ; i++) 

< 

palbuf [i] [0]-i/4; 
palbuf [i] [l]«i/4; 
palbuf  [i]  [2]  **i/4; 

} 

>256; 
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k-0; 

p-tpalbuf; 

1b (int)p; 

_*#m  aov  dx, i; 

_tim  aov  bx,k; 

_asa  aov  ax, J; 

_asa  aov  ax, 1012h; 
its  int  lOh; 

T 

/•Vidao  Mornory  Bonk  Control*/ 
void  Sst_B«nk (bank_no) 
int  bank  no; 

( 

_asm  aov  ax, 4f05b; 

_aaa  aov  bx, 00b; 

_asm  aov  dx, bank_no; 

_asa  int  10b; 

) 

/•Plxal  display*/ 

void  Display_Pixal (pixal, position) 
int  pixal, position; 

{ 

_asa  aov  as, [ our sag ] ; 

_asa  aov  al,byta  ptr  pixal; 

_asm  aov  bx, position; 
asa  aov  as: [bx] ,al; 

) 


/•Main  prograa  bagins*/ 
main  () 

( 

float  pix_no, tamp; 
int  i, 3, x7y, data; 

unsign ad  int  bank-0, pixal, naw_bank, position; 
unsignad  ohar  dummy; 

/*Raad  in  imaga  info*/ 
infila-fopan (*tfila", "r") ; 

fsoanf (infila,  *%d  %d  %d* ,  Saoda,  4 width,  Chaight); 
fsaanf (lnfila, "%s* ,  string); 
fsoanf  (lnfila,  "%s",  atringl)  ; 
f olosa (infila) ; 

/*Raad  in  data,  aanipulata ,  display  rasults,  and  writa  to  bard  disk*/ 
//Sat  display  aoda 
Sat_Moda ( ) ; 

//Sat_up  palatta 
Sat_Palatta ( ) ; 

//Sat -up  VOX  mamory 
Sat_Bank (bank) ; 

_asm  aov  [oursag] , OAOOOh; 

//Raad  in  data,  aanipulata,  display  rasults,  and  writa  to  bard  disk 
infila-fopan (string, "r+b") ; 
outfila-fopan (stringl, "w+b") ; 
for  ( j*l; j<-haight; j++) 

( 

for  (i*l;i<BWidtb;i++) 

( 

fsoanf (infila, "%c" , Cdummy) ; 
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data*dummy; 
temp*  ( float) data; 
temp/*256 . 0; 

temp*temp*temp*tamp*256 . 0; 

data* (int) tamp; 

dummy* (unsigned  char)  data; 

fprintf (outfila, "%c", dummy) ; 

pixel  *  (unsigned  int)  data; 

x*i-l; 

y-j-1; 

pix_no*  (float)  y*WIDIEl+x+l; 
new_bank»pix_no/65536; 
if  (new_bankl*bank) 

( 

bank*new_bank; 

Sat  Bank (bank) ; 

) 

position*pix_no-naw_bank*  65536; 
Diaplay_Pixel (pixel, poaition) ; 


getchar ( ) ; 

//Raaat  text  mode 
_aam  mov  ax, 3; 
_asm  int  10b; 

/*Cloaa  files*/ 
_foloaeall () ; 


/•Main  program  anda*/ 


Q4 
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The  Square  Root  Contrast  Manipulation  Processor 


•include  <c:\c700\include\etdio.b> 
•Include  <c : \c700\include\math .h> 
•include  <a: \c700\include\grepb .b> 

/•Global*  begin*/ 
int  image, mode. width, height; 
int  ouraeg, WZ0TB1, BXIGBT1; 
unaigned  ohar  palbuf [256] [3] ; 
char  atring[15] , atringl [15] ; 
void  far  *p; 

FILS  * infile,  * out file; 

/•Global*  end*/ 

/♦Video  mode  control*/ 
void  Set_Mode() 

< 

//320X200 
if  (mode— 1)  { 

_aam  mov  ax, 13h; 

_aam  int  lOh; 

WIDTB1-320; 

BKIGBT1-200; 

> 

//640X480 
if  (mode— 2)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, lOlh; 

_aam  int  lOh; 

WIDTB1-640; 

BEIGBT1-480; 

> 

//800X600 
if  (mode— 3)  ( 

_aam  mov  ax, 4f 02h; 

_aam  mov  bx, 103h; 

_aam  int  lOh; 

WIDTB1-800; 

BBIGBT1-600; 

> 

//1024X768 
if  (mode— 4)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, 105h; 

_aam  int  lOh; 

WIDTB1-1024; 

HXIGBT1-768; 

) 

) 

/•Palette  load*/ 
void  Set  Palette () 

( 

int  i,J,k; 

for  (i-0;i<-255;i++) 

{ 

palbuf [i] [0]-i/4; 
palbuf [1] [l]-i/4; 
palbuf [i] [2] -i/4; 

} 

3-256; 
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k«*0; 

p-(palbuf; 

i-(int)p; 

_asm  mov  djt,  1; 

~*sm  mov  bx, k; 

~4io  mov  ox, j; 

_a*m  mov  ax, 1012b; 
mam  int  lOh; 

T 

/•Video  memory  bank  eontrol*/ 
void  Set_Bank(bank_no) 
int  bank  no; 

{ 

_aam  mov  ax, 4f05b; 

_aam  mov  bx, OOh; 

_asm  mov  dx,bank_no; 
a am  int  10b; 

T 

/•Pixel  display*/ 

void  Diaplay_Plxal (plxal, position) 
Int  plxal, position; 
t 

_asm  mov  as, [oursag] ; 

_asm  mov  al,byte  ptr  plxal; 

_asm  mov  bx, position; 

_asm  mov  as: [bx] ,  el; 

) 


/•Main  program  begins*/ 
main  () 

{ 

float  pix_no, tamp; 

Int  1, j,x,y, data; 

unsignad  int  bank-0. plxal, naw_bank, position; 
unsignad  char  dummy; 

/•Read  in  Imaga  info*/ 
infila-fopan ('tfUa',  "r") ; 

fsoanf (infila,  '%d  %d  %d',  (mods,  (width,  (height); 
fscanf (Infila, "%s" ,  string) ; 
fsoanf (infila, "%s" ,  stringl) ; 
felosa (infila) ; 

/•Road  in  data,  manlpulata,  display  imaga,  and  write  to  bard  disk*/ 
//Sat  display  mods 
Sat_Moda ( ) ; 

//Set_up  palatta 
SetJP  alette ( ) ; 

//Sat -up  VGA  msmory 
Set_Bank (bank) ; 

_asm  mov  [oursag] , OAOOOh; 

//Road  in  data,  manlpulata,  display  imaga,  and  vrita  to  bard  disk 
infila-fopen (string, "r+b") ; 
outfile-fopen (stringl, "w+b”) ; 
for  (J-l; 3<-haight; J++) 

( 

for  (i-l;l<-vldth;i++) 

( 

fsoanf (infila, "%c", (dummy) ; 
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data— dummy; 

trap* ( float ) data; 

tamp/-256.0; 

tamp-aqrt (tamp) *256.0; 

data- (int ) tamp; 

dummy— (unaignad  char)  data; 

fprintf (outfila, *%c“,  dummy) ; 

pixal  -  (unaignad  int)  data; 

x-i-1; 

y-j-1; 

pix_no-  (float)  y*WIDTHl+x+l; 
naw_bank-pix_no/ 65536; 
if  (naw  bank! -bank) 

{ 

bank-na v_bank ; 

Sat  Bank (bank) ; 

> 

poaition-pix_no-naw_bank* 65536; 
Diaplay_Pixal (pixalTpoaition) ; 


gatohar ( ) ; 

//Raaat  taxt  aoda 
_aam  mov  ax, 3; 
_aam  int  lOta; 

/*Cloaa  filaa*/ 
_foloaaall ()  ; 


/♦Main  program  anda*/ 
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The  Cube  Root  Contrast  Manipulation  Processor 


linclud*  <c : \c700\includ*\atdio . h> 
iincluda  <c : \c700\includ*\math .h> 
iinolud*  <o: \c700\includ*\grapb.h> 

/•Global*  begin*/ 
int  image, mod*, width, haight; 
int  ouraeg, WXDTH1, BSIGHT1; 
unaignad  char  palbuf [256] £3J ; 
char  atring[15] , atringl(15] ; 
void  _ far  *p; 

FILE  *infila,  * out file; 

/•Global*  and*/ 

/*Vidao  mod*  control*/ 
void  S*t_Moda ( ) 

{ 

//320X200 
if  (mod*— 1)  { 

_aam  mov  ax,  13b; 

_aan  int  lOh; 

WIDTH1-320; 

HKIGHT1-200; 

) 

// 640X480 
if  (aoda<»2)  { 

_aam  mov  ax, 4 f 02b; 

_aam  mov  bx, lOlh; 

_aam  int  lOh; 

WIDTH1-640; 

HKIGHTl-480; 

) 

//800X600 
if  (mod*— 3)  { 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, 103b; 

_aam  int  10b; 

WIDTH1-800; 

HEIGHT1-600; 

> 

// 1024X7 68 
if  (mod*— 4)  ( 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, 105b; 

_aam  int  10b; 

WIDTH1-1024; 

HEIGHT1-768; 

) 

} 

/•Palatta  load*/ 
void  Sat  Palatta () 

{ 

int  i.j.k; 

for  (i«0;i<“255; i++) 

< 

palbuf [i] [0] “i/4; 
palbuf [i] [l]-i/4; 
palbuf [i] [2]-i/4; 

) 

j-256; 
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k-0; 

p-4palbuf  ; 
i- (lnt)p; 

_asm  bov  dx,  i; 

_asm  bov  bx,  k; 

_as®  bov  ox, j; 

_asm  aov  ax, 1012b; 
aaa  int  lOh; 

T 

/♦Video  mamory  bank  control*/ 
void  Sat_Bank (bank_no) 
int  bank  no; 

( 

_aaa  bov  ax, 4f05h; 

_a#m  mov  bx, OOh; 

_aam  bov  dx,bank_no; 

_aam  int  10b; 

) 

/♦Pixel  display*/ 

void  DisplayJPixel (pixal , position) 
int  pixal, position; 

{ 

_asm  mov  as, [oursag] ; 

_asm  bov  al,byta  ptr  pixel; 

_asm  mov  bx, position; 

_asm  mov  as : [bx] , al; 

) 


/♦Main  program  bagina*/ 
main  () 

{ 

float  pix_no, temp; 
int  i, j,x7y, data; 

unsignad  int  bank-0 , pixal, naw_bank, position; 
unsignad  char  dummy; 

/*Raad  in  imaga  info*/ 
inf  ile-f  open  (■“tfile"’,  "r") ; 

fscanf (infila,  '%d  *d  %d",  Smoda,  £ width,  (height); 
fsoanf (infila, "%s",  string); 
fsoanf (infila, "%e",  stringl); 
folosa (infila) ; 

/*Raad  in  data,  manipulate,  display  imaga,  and  write  to  bard  disk*/ 
//Sat  display  mode 
Set_Moda () ; 

//Sat_up  palatta 
Set_Palette () ; 

//Sat -up  VGA  memory 
Set_Bank (bank) ; 

_asm  mov  [oursag] , OAOOOh; 

//Read  in  data,  manipulate,  display  imaga,  and  write  to  bard  disk 
infila-f open (string, "r+b" ) ; 
outfils-f open (stringl, "w+b") ; 
for  (3-1;  j<-heigj~t;  J++) 

( 

for  (i-l;i<-width;i-H-) 

{ 

fsoanf (infila, "%c" , 4 dummy ) ; 

|  - - — - - 
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data -dummy; 
temp- (float)data; 
te«np/-256.0; 

temp— pow (temp,  .  33333) *256 . 0; 
data- (int) tamp; 
dummy- (unsigned  char)  data; 
fprintf (outfile, "%c", dumsy) ; 
pixel  -  (unsigned  int)  data; 
x-i-1; 

yj-i; 

pix_no-  (float)  y*WIDIHl+x+l; 
new_bank-pix_no/65536; 
if  (naw_bank ! -bank) 

bank-na w_bank  ; 

Sat  Bank (bank) ; 

) 

posit ion-plx_no-new_bank* 6553 6; 
D i apl ay_P i xa 1 (pixal, position)  ; 

} 


getchar ( ) ; 

//Rasat  taxt  moda 
_aam  mov  ax, 3; 

_asm  int  iota; 

/•Close  files*/ 
_fclosaall ()  ; 

) 

/•Main  program  ends*/ 
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The  1/x  (Inverse)  Manipulation  Processor 


(include  <e:\o700\include\*tdio.b> 
(include  <c : \c700\include\math .h> 
(include  <c: \e700\include\graph.h> 

/•Global*  begin*/ 
lnt  laaga , moda , width , baight ; 
int  ouraeg, WIDTB1, HEIGHT1; 
unaignad  ohar  palbuf [256] [3] ; 
obar  *tring[15] , *tringl[15] ; 
void  _ far  *p; 

FILS  *infile,  *outfile; 

/•Global*  and*/ 

/*Vidao  moda  control*/ 
void  Set_Mode() 

{ 

//320X200 
if  (mode— 1)  { 

_aaa  mov  ax, 13b; 

_aam  int  10b; 

WIDTB1-320; 

HEIGHT 1“200; 

) 

//640X480 
if  (mode— 2)  { 

_a*a  mov  ax, 4f02h; 

_a*m  mov  bx, 101b; 

aam  int  10b; 

WIDTH1-640; 

HEIGHT1-480; 

} 

//800X600 
if  (moda— 3)  { 

_a*m  mov  ax, 4f02h; 

_aam  mov  bx, 103h; 

_a*m  int  lOh; 

WIDTH1-800; 

HEIGHT 1» 600; 

) 

//1024X768 
if  (moda— 4)  { 

_a*xn  mov  ax,  4f02b; 

_aam  mov  bx, 105b; 

_aam  int  10b; 

HIDTH1-1024; 

HEIGHT1-768; 

) 

) 

/•Palatta  load*/ 
void  Sat_Falatta () 

{ 

lnt  i.j.k; 

for  (i-0;i<-255;i++) 

{ 

palbuf [i] t0]-i/4; 
palbuf [i] [1] “i/4; 
palbuf [ij [2]-i/4; 

) 

j-256; 
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k-0; 

p-Spalbuf ; 
i-(int)p; 

_asm  mov  dx, i; 

_a«m  mov  bx, k; 

_a*m  aov  ox, j; 

_«•«  aov  xx, 1012h; 
a as  int  10b; 

T 

/‘Vidao  aoaory  bank  control*/ 
void  Sat_Bank (bank_no) 
int  bank  no; 

{ 

_aam  aov  ax, 4f 05b; 

_a#m  aov  bx, 00b; 

_aaa  aov  dx,bank_no; 

_aam  int  10b; 

> 

/•Pixal  display*/ 

void  Diaplay_Pixal (pixal, position) 
int  pixal, position; 

{ 

_asa  aov  os, (our sag] ; 

a sa  aov  al.byto  ptr  pixal; 

_asa  aov  bx, position; 

_aaa  aov  as : [bx] , al; 

) 


/‘Main  program  bagins*/ 
oiain  () 

< 

float  pix_no, tamp; 
int  i, j,x,y.data; 

unaignad  int  bank-0, pixal, naw_bank, position; 
unsignad  ohar  dummy; 

/‘Road  in  iaaga  info*/ 
infila-fopan ("tfila", "r") ; 

fscanf (infila,  *%d  %d  %d" ,  cmoda,  £ width,  chaigbt); 
f scant (infila, "%s" ,  string) ; 
fscanf (infila, "4s",  stringl) ; 
f olosa (infila) ; 

/‘Road  in  data,  aanipulata,  display  rasults,  and  writs  to  bard  disk*/ 
//Sat  display  mods 
Sat_Moda ( ) ; 

//Sat_up  palatta 
Sat_Palatta() ; 

//Sat -up  VGA  mamory 
SatJBank (bank) ; 

_asa  mov  [oursag] , OAOOOb; 

//Road  in  data,  sianipulata,  display  rasults,  and  writs  to  bard  disk 
infila-fopan (string, "r+b") ; 
outfila-fopan (stringl, "w+b") ; 
for  ( j-1; j<-haigbt; J++) 

for  (i-1; i<«width; i++) 

< 

fscanf  (infila,  "%c",  t dummy)  ; 
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data-dumny; 

t«mp» (float) data; 

if  (temp<-1.0)  temp-255. 0; 

•  Isa 

< 

t»mp/-256 . 0; 
t«mp-l .  0/fap; 

} 

data- (int) temp; 

dumxay—  (unsigned  ebsr)  data; 

fprintf (outfile, "%c" , dummy) ; 

pixel  -  (unsigned  int)  data; 

x-i-1; 

y-J-1; 

pix_no-  (float)  y*WIDTHl+x+l; 
ne  w_b  ank-pi x_no / 65 5 3 6 ; 
if  (new  bank (-bank) 

< 

bank-new_bank; 

Set_Bank (bank) ; 

> 

posit ion-pix_no-new_bank* 65536; 
DisplayJPixel (pixel, position) ; 

} 


getobar ( ) ; 

//Reset  text  mode 
_aam  mov  ax, 3; 

_asm  int  10b; 

/•Close  files*/ 
fcloseall () ; 

T 

/•Main  program  ends*/ 
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The  Inverting  Processor 


lincluda  <c : \c700\includa\atdlo ,h> 
•include  <c:\c700\includeVmath.h> 
•include  <c: \c700\includ*\graph.h> 

/•Global*  begin*/ 
int  image, mode, width, height ; 
lnt  ouraeg, WIDTH1, HEIGHT 1; 
unaignad  abar  palbuf  [256]  [3] ; 
char  atring[15] , etringl[15]  ; 
void  _ far  *p; 

FILE  * infile,  *outfile; 

/•Global*  and*/ 

/•Vldao  moda  control*/ 
void  Sot  Noda() 

{ 

//320X200 
If  (moda— 1)  { 

_aam  mov  ax, 13h; 

_a*m  Int  lOh; 

WIDTH1-320; 

BEIGBT1-200; 

) 

//640X480 
if  (mode— 2)  { 

_a«m  mov  ax, 4f02h; 

_aan  mov  bx, lOlh; 

_aam  int  lOh; 

WIDTH1-640; 

BEIGBT1-480; 

) 

// 800X600 
if  (moda— 3)  { 

_aem  mov  ax, 4f02h; 

_aam  mov  bx, 103b; 

_aam  int  lOh; 

WIDTB1-800; 

HEIGBT1*600; 

) 

//1024X768 
if  (mode— 4)  ( 

_aam  mov  ax, 4f02h; 

_aam  mov  bx, 105h; 

a am  int  10b; 

KIDVBl-1024; 

BXZGBT1-768; 

} 

) 

/•Palette  load*/ 
void  Sat  Palatta () 

< 

int  i, j,k; 

for  (i-0;i<-255;i++) 

{ 

palbuf [i] [0]-i/4; 
palbuf [i] [l]*t/4; 
palbuf [i] [2]«i/4; 

> 

3-256; 
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k-0; 

p»(palbuf; 

i«(int)p; 

_aaa  mov  dx, i; 

_aam  aov  bx, k; 

_aam  aov  cx, j; 

_aaa  aov  ax, 1012b; 
asu  lot  lOh; 

7 

/*Vidao  aamory  bank  control*/ 
void  Sat_Bank (bank_no) 
int  bank  no; 

{ 

_asm  aov  ax, 4f 05b; 

_asa  aov  bx, 00b; 

_asa  aov  dx, bank_no; 
a am  int  lOh; 

T 

/•Pixal  diaplay*/ 

void  Diaplay_Pixal (pixal, position) 
int  pixal, poaition; 

< 

_aaa  aov  aa, [ouraag] ; 

_aaa  aov  al,byta  ptr  pixal; 

_aam  aov  bx, poaition; 

_aaa  aov  aa: [bx] ,al; 

} 


/♦Main  program  bagina*/ 
main  () 

( 

float  pix_no,tamp; 
int  1, j,x,y,data; 

unaignad  int  bank>0, pixal, naw_bank, poaition; 
unalgnad  char  dummy; 

/*Raad  in  imaga  info*/ 
inflla-fopan('tfila', "r") ; 

facanf (inflla,  "%d  %d  %d" ,  Cmoda,  * width,  fihalght) ; 
facanf (infila, ”%■" ,  atring) ; 
facanf (infila, n»a",  atringl) ; 
fcloaa (Infila) ; 

/*Raad  in  data,  manipulata,  diaplay  imaga,  and  writa  to  hard  dlak*/ 
//Sat  diaplay  aoda 
Sat_Moda ( ) ; 

//Sat_up  palatta 
Sat_Palatta() ; 

//Sat -up  V6A  mamory 
Sat_Bank (bank) ; 

_aam  mov  [ouraag] , OAOOOh; 

/ /Raad  in  data,  manipulata,  diaplay  imaga,  and  vrita  to  hard  diak 
inf ila«f opan ( atring, "r+b") ; 
outfila»f opan  (atringl,  "w+b")  ; 
for  ( j*l; j<«baight; j++) 

( 

for  (i*l;l<«width;l++) 

{ 

facanf (infila, "%c" , (dummy) ; 
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data*dummy; 

tamp*  (float) data; 

if  (tas'p<*1.0)  tamp*255.0; 

•lu 

< 

tamp/*256 .0; 
tamp*l . 0/tamp; 

) 

data* (int) tamp ; 

dummy* (unaignad  char)  data; 

fprintf (outfila, "tc", dummy); 

pixal  *  (unaignad  int)  data; 

x*i-l; 

y-j-l; 

pix_no*  (float)  y*WIDTHl+x+l; 
naw_bank*pix_no/ 6553  6 ; 
if  (na«  bank '-bank) 

( 

bank-na w_bank ; 

Sat_Bank (bank)  ; 

) 

position«pix_no-naw_bank*  6553  6; 
Diaplay_Pixal (pixal, position) ; 


gat  char  () ; 

//Raaat  text  mode 
_aam  mov  ax, 3; 
asm  int  10b; 


/•Cloaa  filas*/ 
foloaaall ()  ; 

} 

/*Main  program  anda*/ 
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The  Image  Extraction  Processor 

# include  <e: \e700\include\stdio.h> 

•include  <e: \c700\include\math ,h> 

•include  <o: \c700\include\viodef s ,h> 

•include  <c: \c700\include\vicf cte ,h> 
tf include  <o : \o70  O\inolude\vioerror . h> 

# include  <c: \c700\include\graph.h> 

/•Global*  begin*/ 

int  image, mode, width, height, lowest, highest; 
int  ourseg, WIDTH1, HXISBT1, Jheight; 
un signed  ohar  palbuf [256] [3] ; 
ehar  string [15] , stringl[15] ; 
float  factor, range, weight [256] ; 
void  _ far  *p; 

FILE  * infile,  * out file; 

/•Globals  end*/ 

/•Extended  memory  data  retrieval*/ 
int  dget (handle, index_x,  index  y) 
int  handle, index_x, index_y; 

{ 

int  data; 
int  test; 

test*xmgetrow (sdata, handle, (index_x-l) *2,  (index_y-l)  ,2,2050)  ; 
if  (test ! «NO_ERROR)  { print f («dget-%i, %i, %i”, handle, index_x, index _y) ; 
getchar () ; } 

return (data) ; 

} 

/•Extended  memory  data  placement*/ 
void  dput (handle, index_x, index_y, data) 
int  handle, index_x, index_y; 
int  data; 

{ 

int  dummy; 
int  test; 

dummy  «  data; 

test*xmputrow(sdummy« handle, (index_x-l)*2, (index_y-l) , 2,  2050)  ; 
if  (test ! «NO_ERROR)  { print f ('dput  %i, %i, %i”, handle, index_x,index_y) ; 
getchar ( ) ; } 

) 

/•Obtain  histogram*/ 
void  histo() 

( 

int  i,j, index; 
unsigned  char  cp; 

infile«f open (string, "r+b") ; 
for  (i**0;  i<256;i++) 

{ 

weight [i]»0.0; 

) 

for  (j~T; j<-height; j++) 

{ 

for  (i»l;i<*width;i++) 

{ 

fscanf (infile, "%c",  Sep)  ; 
index* cp; 
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weight { index] +*1 . 0 ; 
dput  (iugt,  j,  i,  index)  ; 

) 

if  ()M«»0)  printf  (* .  *)  ; 

) 

i-O; 

while  (weight  [i]— 0.0)  i++; 

lowest*i; 

i-255; 

while  (weight  [i] —o.O)  i-; 
highest-!; 

range* (float)  (highest -lowest ) ; 
folose (infile) ; 

} 

/‘Spread  out  histogram* / 
void  extract () 

( 

int  i, j, index; 
float  base; 
histo  () ; 

factor* (float)  256.0/range; 
for  ( J-l; j<*height; j++) 

( 

for  (i*l;i<*width;i++) 

( 

index-dget (image,  j ,  i )  ; 
base* (float) (index- lowest) 
index* (int) (base*f actor) ; 
if  (index>255)  index*255; 
dput (image , j , i , index) ; 

) 

if  (j%4— 0)  printf ('.-); 

) 

) 

/•Video  mode  control*/ 
void  Set_Mode() 

{ 

//320X200 
if  (mode— 1)  ( 

_asm  mov  ax, 13h; 

_asm  int  lOh; 

WIDTH1-320; 

HEIGHT1-200; 

) 

//640X480 
if  (mode— 2)  { 

_esm  mov  ax, 4f02h; 

_asm  mov  bx, lOlh; 

_asm  int  lOh; 

WIDTHl-640; 

HEIGHT 1*4 80; 

} 

//800X600 
if  (mode— 3)  { 

_asm  mov  ax, 4f02h; 

_asm  mov  bx, 103h; 

asm  int  lOh; 

SlDTHl-800; 

HEIGHT1-600; 

} 

//1024X768 
if  (mode— 4)  { 

_asm  mov  ax, 4f02h; 
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_asm  mov  bx, 105h; 
_asm  int  10b; 
WIDTH1-1024; 
BXIGBT 1-768; 


/•Palette  load*/ 
void  Sot  Palette () 

< 

int  1,  J,k; 

for  (i-0;i<»255;i++) 

( 

palbuf [1] [OJ-1/4 
palbuf [1] [l]«i/4 
palbuf [i] [2] -1/4 
) 

j-256; 

k-0; 

p-tpalbuf  ; 
i» (int) p; 

_asm  mov  dx,  i; 

_asm  mov  bx, k; 

_a#m  mov  cx, j; 

_aam  mov  ax, 1012b; 
_aam  int  10b; 

) 


/*Vidao  mamory  bank  control*/ 
void  Sat_Bank (bank_no) 
int  bank_no; 

( 

_aam  mov  ax, 4f05h; 

_a«m  mov  bx, OOh; 

_aam  mov  dx,bank_no; 

_aam  int  lOh; 


/•Pixel  display 

void  Display_Pixol (pixol, position) 
int  pixol, position; 

{ 

_asm  mov  os, [ourseg] ; 

_asm  mov  al.byte  ptr  pixol; 

_asm  mov  bx, position; 

_asm  mov  os: [bx] ,al; 


/•Main  program  begins*/ 
main  () 

{ 

float  plx_no; 
int  i, j,x,y, data; 

unsigned  int  bank*0, pixol, now_bank, position; 
unsigned  char  dummy; 

/•Road  in  imago  info*/ 
inflle>fopen('*tfile‘',  "r") ; 

fscanf (infilo,  ~%d  %d  %d”,  fimoda,  S width,  Sheight) 
fsoanf (infilo, "%s",  string); 
fsaanf (infilo, "%s" ,  stringl) ; 
f close (infilo)  ; 
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/•Initialise  extended  memory*/ 
xmal locate (t image,  2048)  ; 

/•Process  image*/ 
extract  ()  ; 

/•Save  extraction  results  to  hard  disk*/ 
outf ils-f open (stringl, "w+b") ; 
for  ( J*l;  j<-beight;  j++) 

< 

for  (1*1;  ic-width;  i++) 

( 

data-dgst (image,  j.i); 
dummy* (unsigned  char)  data; 
fprintf (outfile, "to",  dummy) ; 

) 

} 

/•Display  results*/ 

//Set  display  mode 
Set_Mode ( )  ; 

//Set_up  palette 
Set_Palette()  ; 

//Set-up  VGA  memory 
Set_Bank (bank) ; 

_asm  mov  [ourseg] , OAOOOh; 

//Display  results 
if  (height>  HEIGHT1) 

_height— BEIGHT1; 

else 

_height*height  ; 
for  (j*l;J<*  height; j++) 

{ 

for  (i*l;  K-widtb;  i++) 

{ 

pixel  *  (unsigned  int)  (dget (image, j, i) ) 

x-i-1; 

y*J-l; 

pix_no*  (float)  y*WIDTHl+x+l; 
new_bank-pix_no/65536; 
if  (new  bank! -bank) 

( 

bank*ne w_bank ; 

Set  Bank (bank)  ; 

> 

posit i on«pix_no-new_bank* 6553 6; 
DisplayJPixel (pixel, position) ; 

) 

} 

get char () ; 

//Beset  text  mode 
_asm  mov  ax, 3; 

_asm  int  lOh; 

/•Close  files  and  free  extended  memory*/ 
_feloseall() ; 
xmfree (image) ; 

} 

/•Main  program  ends*/ 


Appendix  V  The  Image  Extraction  Processor 


Appendix  W 

The  Median  Filter  Processor 


Appendix  W  The  Median  Filter  Processor 


The  Median  Filter  Processor 


iinclude  <c: \c700\include\atdio ,h> 
iinclude  <o : \c700\include\graph.h> 
iinclude  <c: \c700\include\conio.h> 
iinclude  <c: \c700\include\atring.h> 
iinclude  <o : \c700\include\atdlib .b> 
iinclude  <o : \c700\include\math .h> 

idefine  RGB(r,g,b) (0x3F3F3PL  6  ( (long) (b)  «  16  |  (g)  «  8  |  (r) ) ) 

/•Global*  begin*/ 

char  atrlng[80] , atringl[80] , aavafila [80] ; 

unaignad  char  red[256] , blue [256] , green [256] , cp, d[15] [1024] , kl [400] ; 
int  block_aize, i, j ,  k, ix, jx.xdim, ydim, moda, haadar, updown, z; 
int  xbound, ybound, kllx; 
float  tempi; 

FILS  *input_fila,  •inpalette,  *infila,  •out; 

/•Globala  and*/ 

/•Parforma  a  atandard  bubble  aort*/ 
void  bubble () 

< 

int  li, j j; 
unaignad  char  temp; 

for  (ii“bloak_aize*bloak_aize; ii>*l;ii— ) 
for  (jj-2; jj<-ii; jj++) 
if  (kl [j j-1] >kl [ j j] ) 

{ 

temp-kl[jj-l]  ; 
kl  [ jj~l] “kl [ j j] ; 
kl [ j j] “temp; 

> 

} 


/•Main  program  begina*/ 
main  () 

( 

/•Read  procedure  information*/ 
infile“fopenC*tfile”',  "r")  ; 
facanf (infile, "%i",smode) ; 
facanf (infile, "%a",atring) ; 
facanf (infila, "%a" , atringl) ; 
facanf (infile, "%i”, txdim) ; 
facanf (infile, "%i" , sydim) ; 
facanf (infile, "%i", (header) ; 
facanf (infile, "%i" , (updovn) ; 
facanf  (infile,  "%a" ,  aavafila) ; 
facanf  (infile,  "%i”,6block_aize); 

/•Open  filea*/ 

input_file“fopen (atringl, "r+b") ; 
inpalette“f open (at ring, "r+b") ; 
out“fopen (aavafila, "w+b") ; 

/•Read  in  palette*/ 
for  (i“0;i<*255;i++) 

( 

facanf (inpalette, "%cn , tap) ; 
rad[i]“cp; 

> 
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{ 

faoanf (inpalatta, *%c", Sap) ; 
groan [i] »op; 

} 

for  (i“0; i<»255; 1++) 

{ 

faoanf (Inpalatta, "Sc", Sep) ; 
blue[i]»cp; 

) 

if  (haadar  ! -0 ) 

< 

for  (1  “  1;  i  <■  haadar;  i++) 

{ 

faoanf (Input  filo, "Sc", Sap) ; 

> 

} 

/•Sot  vidoo  mod#*/ 

if  (nodtnl)  _ootvidoonodo  (_MRJtS25  6COLOR)  ; 
if  (mode~«2)  _aetvideomoda (_VRBS256COLOR) ; 
if  (modos»3)  _oetvideomode (_SRZS256COLOR) ; 
if  (mode»»4)  _oatvideomoda (~XRBS256C0L0R) ; 

/•Enable  palette*/ 
for  <i«0; i<«255; 1++) 

< 

_remeppelett o ( i , RGB ( rod [ i ] /4 . groan [ i ] / 4 , bluo [ i ] / 4 ) ) ; 

) 

/•Dioploy  original  imago*/ 
for  (i»0 ; i<ydim; i++) 

{ 

for  ( j«0; J<xdim;  j++) 

{ 

facanf (input_fila, “*c", Sep)  ; 
k  *  cp; 

_ootcolor (k) ; 

if  (updown  »-  0)  _aatpixal ( j ,  i  )  ; 
if  (updown  —  1)  _eatplxal (j, ydim-l-i) ; 

) 

l 

/•Porform  3x3  windowed  modi an  for  arbitrary  bordora*/ 
tamploO; 

for  (i~0;i<ydim;i++) 

( 

for  ( J-0; j<xdim; J++) 

{ 

for  (ix-0;  ix<bloak  aica;  ix++) 

{ 

for  (Jx»0; jx<blook  aixe;jx++) 

( 

xbound  ■  j-l+Jx; 
ybound  -  i-l+ix; 

if  (xbound  <  0)  xbound  »  -xbound; 
if  (ybound  <  0)  ybound  «  -ybound; 

if  (xbound  >  (xdim-1) )  xbound  -  xdim-1- (xbound- (xdim-1) ) ; 
if  (ybound  >  (ydim-1))  ybound  -  ydim-1- (ybound- (ydim-1) ) ; 
kl[ix*block_aize+jx+l]o (unsigned  char )_go t pi xol (xbound, ybound) ; 

> 

bubble  () ; 

k«kl [ (block_ai ro*block_ai i«+l ) /2]  ; 
tomploO; 
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if  (i>-( (int) (block  sixe/2 .0) +1) ) 

{ 

kllx-d t (i- ( (int) (block_slxe/2 . 0) +1) ) * ( (lnt) (block_slxe/2 . 0) +1) ] [ j] ; 
setcolor (kllx) ; 

setpixel ( j, i- (int) (block  sixe/2. 0+1)  ); 

) 

d[l% ( (int) (block_sixe/2 .0) +1) ] [j]- (unsigned  char)  k; 


for  (i-ydi®-l- ( (int) (block_sixe/2 . 0) +1) ; i<ydim; i++) 


for  ( J««0;  j<xdim;  j++) 

{ 

k  *  d[i  *  ( (int) (block_sixe/2 .0) +1) ] [j] ; 
_aotaolor (k) ; 

3»«tpix«l(j,i) ; 


/•Writ*  results  to  hard  disk*/ 
for  (i«0; i<ydim; i++) 

{ 

for  ( j“0; j<xdim; j++) 

( 

k  -  _getpixel(j,i); 
fprintf (out, "%c",k)  ; 

) 

) 

/•Close  files*/ 

_fcloseall ()  ; 

/♦Pause*/ 
getch  ()  ; 


/•Reset  text  mode*/ 
_setvideomode (_DEF AULTMODE ) ; 
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The  Transmit  Processor 


tineludt  <io.h> 

(include  <doa.h> 

(include  <abc.h> 

(inoluda  <bioa.h> 

(inoluda  <math.h> 

(inoluda  <atdio.b> 

(inoluda  <otypa.h> 

(inoluda  <conio.b> 

(inoluda  "avdoa . h* 

(inoluda  <£entl.h> 

(inoluda  <atring.b> 

(inoluda  <malloc.b> 

(inoluda  <atdlib.b> 

(inoluda  “loaddrv . c* 

(inoluda  <proceaa.b> 

(inoluda  <abovoioa.b> 

(inoluda  <aya\typaa . h> 

(inoluda  <aya\timab.h> 

(inoluda  <potcp\typeal.b> 

(inoluda  <pctcp\pctcp . h> 

(inoluda  <potap\ipaonfig.b> 

(inoluda  <potcp\optiona.b> 

(inoluda  <\ftp\aro\al*rm\alar».b> 

(define  SOURCE  “DafaultSourca" 

(dafina  FORMAT  BITMAP_SVW_NATIVE 

(ifndef  TRUE 
(dafina  TRUE  1 
(dafina  FALSE  0 
(andif 

/•Global*  begin*/ 

struct  addr  a; 

int  tampl, alarm_con,  rc; 

float  snl [2000], sn2 [2000]; 

unsigned  obar  buffer [2000] ; 

long  tmo-ALARM_TIMBOUT,lBufSi*e-0x400L; 

char  atrlngl [80] , auparbuf [10000] ,  huqa  *bbuf , far  *lpVoieeBuf ; 

FILE  *input_file; 

/•Global*  and*/ 

/•Raised  Coaina  Filtar  for  aound  packets*/ 

▼old  raiaad  coaina  flltaringO 

{ 

for  (templ-16;templ<-(rc+16) ; templ++) 

{ 

auparbuf [tempi] -auparbuf  [tesqpl] -128; 
auparbuf [tenpl] -(auparbuf [tampl] *snl[ tempi] ) ; 
auparbuf [tampl ] • auparbuf [tampl] + 12 8 ; 

) 

for  (tempi- (1016- rc) ; temple-101 6; templ++) 

{ 

auparbuf [ tampl ] -auparbuf [ tampl ] - 12  8 ; 
auparbuf [tampl] - (auparbuf [tampl] **n2 [tampl] ) ; 
auparbuf [tampl] -auparbuf [tampl] +128 ; 

> 

nat_writa (alarm_con, auparbuf, 1100, 0) ; 
ctvm_input (lpVoieaBuf , lBufSisa, 8000) ; 

) 


X2 


Appendix  X  The  Transmit  Processor 


/•Main  program  begins*/ 
main() 

{ 

VIDEO  vid; 
int  kay, 1,3; 
long  int  kt; 

Winport  wp.nwp; 

•xtarn  char  far  *n*»r  voica_drv; 

/•Network  and  vidao  aatup*/ 

a . fhoat*nm_rea_name ("134 .164 . 40 . 121" , (abar  •)  0,0); 
a.laockat  «  0; 

a.faockat  -  S OCX_ AIARM_R2 CV ; 

hbuf* (char  huge  *)_halloc(556020,  aizaof (char) ) ; 
alarm_eon*net_connect (-1, DSRAM, ta) ; 

sat  option (alarm_con,DGRAM,NET_OPT_TIMEOUT, (char  far  *)tmo,  4); 

AVinit (* vidao . ini ' ) ; 

vid  •  AVer aat a (SOURCE) ; 

wp. width  “  162; 

wp.baight  “  100; 

wp .x  -  wp.y  -  0; 

AVconf igura (vid,  swp,  Cnwp,  0); 

AVfitModa (vid,  FIT_STRKTCH) ; 

AVcolorKay (vid,  KBY_COLOR,  0) ; 

AVanabla (vid) ; 

/•Audio  aatup*/ 

if  ( ! Gat EnvSat ting () ) 

{ 

if  (abo  chaok_oard() 44) 

{ 

if  (abc_taat_int ( ) ) 

{ 

if  ( abc_taat  dma()>*0) 

{ 

if  (voioa  drv»*LoadDriver  ("CT-VOICB  .DRV") ) 

( 

if  (Ictvm  init()) 

{ 

lpVoiaaBuf -auparbuf ; 
ctvm_apaakar (0) ; 

ctvm_input (lpVoiaaBuf, lBufSiza, 8000) ; 

) 

) 

} 

alaa 

print f ("Error  on  DMA  channal . \n") ; 

> 

alaa 

print f  v  _rror  on  intarrupt . \n* ) ; 

) 

alaa 

printf ("Sound  Blaatar  Card  not  found  or  wrong  I/O  aattinga . \n") 

) 

alaa 

printf ("BLASTER  environment  not  aat  or  incomplete  or  invalid. \n*) ; 

/•Filtar  aatup*/ 
rc*B0; 

for  (tampl*16;templ<*(re+16) ;templ++) 

anl  [tempi] -ain  (3 . 14159*  (teag>l-l«.  0)  /  (2 . 0*rc) )  ; 
for  (tempi* (1016-re) ;templ<»1016;templ++) 

»n2  [tempi]  -ain  (3 . 14159*  (1016 . 0-templ>  /  (2 . 0*re) )  ; 
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/•Video  statement*/ 

AVfreere (vid, FALSE) ; 

/•Packet  transmission*/ 
while  (1) 

< 

If  (ot_voics_ststus ! »-l)  rais«d_cosin«_f iltering  () ; 
AVgrabToBitmap (vid, FORMAT, NOLL, (AVbitmapPtr  * ) thbuf ) ; 
if  (ct_volce_statua!*-l)  raised  cosins_filtsrinq () ; 
kt-OL; 

for  (i“0;i<»97; i++) 

{ 

i++; 

_ssm  bov  ax, 1 
_aam  mov  j ,  ax 
label2: 

buffer[j+l]«  bbuf [kt+j+j+20L] ; 

_aam  inc  j 
_asm  cmp  J,  320 
_a*m  jna  lab«12 
buf far [1] - (char) i; 
kt-kt+«40L; 

if  (ct_voice_status!*-l)  raised_cosine_fiitering ( ) ; 
nat_writa (alarm_con, buf far, 322,  0)  ; 

if  (et_voica  statua!»-l)  raisad  cosina  filtering (); 
if  (_kbhit ()T-0)  goto  labell; 

) 

) 

/•Job  tarmination*/ 
laball :  ctvm_etop ()  ; 
gatehar ( ) ; 
ctvm_tarminata () ; 

_doa_f raamam (FP_SEG ( lpVoicaBuf ) ) ; 

AVdaatroy (vid) ; 

AVand(); 

nat_ralaasa (alarm_con) ; 

_fdoaaall  () ; 
return  1; 

> 

/•Main  program  ends*/ 
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The  Receive  Processor 


iinoluda  <io.h> 

iinolud*  <abc.b> 

iinolud*  <doa.b> 

iinoluda  <tim*.h> 

iinolud*  <oonio.b> 

iinolud*  < graph .h> 

iinolud*  <stdio.b> 

iinolud*  <atring.h> 

iinolud*  "loaddrv , c" 

iinolud*  <proc*aa.h> 

iinolud*  <abovoie*.b> 

iinoluda  <pctop/typ*a .h> 

iinolud*  <pctcp/pctop.b> 

iinolud*  <potop/*rror .h> 

iinolud*  <pctcp/aaynch.h> 

iinolud*  <potcp/typ*al.h> 

iinolud*  <potop/optiona.b> 

iinolud*  <pctcp/ipconfig.h> 

iinolud*  </ftp/arc/alara/alara.h> 

idofin*  REPLY  (struct  addr  *)t reply  to 

/•Global*  begin*/ 
char  *lpVoic*Buf; 
struct  addr  raply  to; 
long  tmo-ALARMjriNEOUT; 

void  _ far  *p, _ far  *fptr; 

unsigned  int  aoundflag»l, offvalu*, i,  b; 
int  offd, a*gd, oura*g, data_l*ngth, widthl«320; 

unsigned  char  r*ad_buf [1025] , r*ad  bufl [1025} , r*ad_buf2 [1025] ; 
unaignad  char  r*ad_pal [770] , palbuf [256] [3] , *r*ad_buf f*r; 

FILE  *inpal*tt*, *input_f  ilal; 

/•Global*  and*/ 

/*Proc*a«  video  packet*/ 
void  buff*r_call () 

[ 

i«* (r*ad_buff*r+l)  ; 
b-i*widthl; 
f ptr=r*ad_buf f *r+2 ; 
a*gd«_FP_SEG ( fptr ) ; 
offd-_FP_OFF (fptr) ; 

_aam  aov  da,a*gd 
_aam  mov  si, offd 
_a*a  aov  *a, [oura*g] 

_aam  aov  di , b 
_aam  aov  ox, 80 
_aaa  r*p  aovaw 
b«b+widthl; 
fptr»r*ad_buff*r+162; 
a*gd-_FP_SEG (fptr) ; 
o  f  f d«_FP_OFF (fptr) ; 

_aaa  aov  d*,a*gd 
_aaa  aov  ai,offd 
_aam  aov  *a, [ouraeg] 

_aaa  aov  di,b 
_aaa  aov  ox, 80 
_aaa  r*p  aovaw 
> 

/•Fix  aound  header*/ 
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void  sound* r ( ) 

{ 

lpVoiasBuf [0] «9; 
lp  Voi  asBuf  [1]— 12; 
lpVoiasBuf [2] a3; 
lpVoiasBuf [3] *0; 
lpVoiasBuf [4J-30; 
lpVoiasBuf [5] -31; 
lpVoiasBuf  1 1016] -0; 

if  (aoundf l*g»-l)  ctvm  output (lpVoiasBuf) ; 

) 

/*Msin  program  begins*/ 
main  () 

( 

int  J, k, alarm_con, tarminats-TRUE; 

int  key, indaxl, indax2, indsx3 , ksyl; 

sxtsrn  char  far  *n*ar  voios_drv; 

char  stringl[80]; 

unsignsd  char  cp; 

atruct  SREGS  sag; 

struct  addr  a; 

/•Hat work  sstup*/ 

t a rmi nat asFALSE ; 

ssgrsad (Cssg)  ; 

a . laockst»SOCK_ALARM_RECV; 

a.fsockst«0; 

a.fhost-OL; 

/•Audio  sstup*/ 
if  (!GatEnvSetting() ) 

{ 

if  (sbc  check_card () <4) 

( 

if  (sbc  tast  int()) 

{ 

if  (abc_tsst_dma()>*0) 

{ 

if  (volc*_drv“LoadDriv*r ("CT-VOICE . DRV”) ) 

< 

ctvm  init () ; 

) 

) 

slss 

print f ("Error  on  DHA  channsl . \n") ; 

) 

slss 

printf ("Error  on  intsrrupt . \n") ; 

) 

slss 

printf ("Sound  Blastsr  Card  not  found  or  wrong  I/O  asttinga . \n~) 

) 

slss 

printf ("BLASXER  snvironaant  not  sat  or  incomplete  or  invalid. \n') ; 

/•Sat  320x200  graphics  mod**/ 

_asm  mov  ax, 13h 
_aam  int  lOh 

/•Gat  a  global  nstwork  descriptor  and  maka  network  connection*/ 
alarm_con-n*t_gatglobd*sc () ; 

sst_option(alarm_con,DGRAM,HET_OPT_TIMEOUT, (char  far  *)tmo,4); 
nst  connect (alarm  con, DGRAM, 4a) ; 
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/•rill  gctyisil*  palatta  buffer*/ 

j-O; 

for  (1-0; i<-255; 1++) 


palbuf [1] [0]-l/4; 
palbuf [1J [l]-l/4; 
palbuf [1] [2]-l/4; 
> 

/•Sat  up  palatta*/ 

j-256; 

k-0; 

p-t palbuf  ; 

offvalua-_FP_Orr (p) ; 
_aam  mov  dx,  of fvalua; 
_aam  mov  bx, k; 

_aam  mov  cx,  3  ; 

_aam  mov  ax, 1012h; 
ana  lnt  lOh; 


/•Sat  a  polntar  to  tba  baginning  of  vldao  mamory*/ 

_aam  mov  [oursagl , OAOOOh; 

/• Da tormina  If  tba  packet  la  vldao  or  audio*/ 

labalx:  data_langtb-nat_raad (alarm_con, raad_buf , 1020, REPLY,  0) ; 

If  (data_lengtb>700)  goto  aound_buffar; 
alsa  goto  diaplay_buffer; 

/•Procaaa  audio  packat*/ 
sound_buf f ar :  lpVoicaBuf«raad_buf ; 
soundar () ; 

/•Datarmina  If  tba  packat  la  vldao  or  audio*/ 

labalg :  data_langtb-nat_raad (alarm_con, read_buf 1 , 1020 , REPLY, 0) ; 

If  (data_langth>700)  goto  aound_buffarl; 
alaa  goto  diaplayjbuf farl; 

/•Procaaa  audio  packat*/ 
aound_buf farl :  lpVoicaBuf-raad_bufl; 
aoundar 0 ; 

/•Datarmina  If  tha  packat  la  vldao  or  audio*/ 

labals ;  data_langtb-nat_raad (alarm_con, raad_buf2, 1020, REPLY, 0) ; 
if  (data_langtb>700)  goto  aound_buffar2; 
alaa  goto  diaplay_buffar2; 

/•Procaaa  audio  packat*/ 
aound_buffar2 :  lpVolcaBuf-raad_buf2; 
aoundar () ; 
goto  labalx; 

/•Procaaa  vldao  packat*/ 
diaplay_buf far :  raad_buf f ar-raad_buf ; 
buf far_call ( ) ; 

if  (_kbhit () 1-0)  goto  labaly; 
goto  labalx; 

/•Procaaa  vldao  packat*/ 
diaplay_buffarl ;  raad_buf far-raad_buf 1; 
buf£er_call () ; 
goto  labalg; 

/•Procaaa  vldao  packat*/ 
diaplay_buf far2 :  raad_buf far-raad_buf 2; 
buf far  call(); 
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goto  labels; 

/♦Special  function**/ 
labely:  key— ga  tch(); 

•witch  (kay) 

( 

caao  'z':  /*Job  tormination*/ 
nat_ralaaaa (alarm  con) ; 

/*Go  to  Text  Mode*/ 

_a»m  bov  ax, 3 
_a*m  int  lOh; 

_fcloaaall () ; 
ctvm  tarminata () ; 

axitTl) ; 

break; 

caaa  '1':  /‘Sound  toggla*/ 

if  (aoundf lag— 0)  aoundflag— 1; 

alaa  aoundf lag— 0; 

braak; 

caaa  '2':  /*Vidao  caputura -quadrant  1*/ 
•trcpy (atringl, "pict .000") ; 
kay 1-4; 

indaxl-indax2-indax3-0 ; 

input_f ilal-fopan (atringl, "r+b") ; 

whila  (input_filal ! - (FILE  *)  MOLL) 

I 

fcloaa (input_filal) ; 
indexl++;  — 
if  (indexl— 10) 

( 

indaxl-0; 
index2++; 
if  (indax2— 10) 

( 

indax2-0 ; 
indax3++; 

> 

) 

atringl [kayl+3]-indaxl+' 0' ; 
atringl [kayl+2]-index2+' 0' ; 
atringl  [kayl+1]  -inda:-3+'  O'  ; 
input  filel-fopan(at’'/  agl,  "r+b")  ; 
) 

fcloaa (input_filal) ; 
input_filal-fopan( atringl, "w+b") ; 
for  (i-0; i<-99; i++) 

{ 

for  (j-0; j<-159; j++) 

( 

b-i*widthl; 
b**b+ j; 

_*am  mov  aa, [ouraag] 

_aaa  aov  bx,b 
_aam  mov  al,aa:[bx] 

_aam  mov  cp,al 
b-b+160; 

_aam  mov  aa, [ouraag] 

_aam  mov  al , cp 

_aam  mov  bx,b 

_aam  mov  aa: [bx] ,al 

fprintf (input  filal, "%c",cp) ; 

} 

) 
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fcloaa (input  filal); 
braak; 


04 aa  '3':  /*Vidao  oaputura -quadrant  3*/ 
at ropy (atringl, "plot .000") ; 
kay 1-4 ; 

indaxl-indax2-indax3-0; 

input_f ilal-fopan (atringl, "r+b") ; 

whi la  (input  filal!-(FILE  *)  NULL) 

( 

f oloaa (input_filal) ; 

indaxl++; 

if  (indaxl— 10) 

{ 

indaxl-0; 
indax2++; 
if  (indax2« 10) 

{ 

indax2-0; 

indax3++; 

) 

) 

atringl [kayl+3]«indaxl+' 0'  ; 
atringl [kayl+2]-indax2+'  0'  ; 
atringl [kayl+l] -indax3  +  '  0'  ; 
input_filal»fopan (atringl, "r+b") ; 
) 

fcloaa (input_filal) ; 

input_f ilal-fopan (atringl, "w+b") ; 

for  (i-0;i<»99;i++) 

( 

for  (j-0; j<-159;j++) 

{ 

b-i*widthl; 

b-b+j; 

_aam  mov  aa, [ouraag] 

_aam  mov  bx,b 
_aam  mov  al,aa: [bx] 

_aam  mov  cp,  al 
if  (widthl— 640)  b-b+320; 
alaa  b-b+wl dth 1 * 10 0  ; 

_aam  mov  aa, [ouraag] 

_aam  mov  al,  op 

_aam  mov  bx,b 

_aam  mov  aa : [bx] , al 

fprintf (input_filal, "%c" , cp) ; 

) 

) 

fcloaa (input_filal) ; 
braak; 

caaa  '4':  /*Vidao  captura -quadrant  4*/ 
atrcpy (atringl, "pict .000") ; 
kay 1-4 ; 

indaxl-indax2-indax3-0 ; 

input_f ilal-fopan (atringl, "r+b") ; 

whila  ( input _filal ! - (FILE  *)  NULL) 

< 

fcloaa (input_f ilal)  ; 

indaxl++; 

if  (indaxl— 10) 

{ 

indaxl-0; 
indax2++; 
if  (indax2— 10) 
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{ 

indax2-0; 

indax3++; 

) 

> 

atringl[kayl+3)*indaxl+'  O’  ; 
stringl [kayl+2 ] »indax2  + '  0'  ; 
atringl [k«yl+l] »ind«x3+'  0' ; 
input  filal-fopan (stringl, "r+b") 
} 

fclosa (input_fil«l) ; 
input_filal»fopan (atringl, "w+b") ; 
for  (i-0;i<-99;i++) 

{ 

for  (j-0;  j<«159;  j++) 

{ 

b-i*widthl; 

b«b+j; 

_*am  mov  as, [ouraag] 

_aam  mov  bx, b 
_*am  mov  al,as:[bx] 

_aam  mov  cp, al 
If  (widtbl*»640)  b-b+480; 

•la*  b«b+widthl* 100+160 ; 

_«am  mov  as, [oursaG] 

_»»»  aov  al, op 

_•«•  aov  bx,b 

_aaa  mov  aa: [bx] ,al 

fprintf ( input_f i lal , "*e" , cp) ; 

) 

) 

fcloaa (input_filal) ; 
braak;  ~ 

caaa  '5':  /*640*480  grapbica  moda*/ 

_aam  mov  ax, 4f 02b; 

_aam  mov  bx, lOlh; 

_aam  int  10b; 

/*Sat  up  palatta*/ 

3-256; 

k»0; 

p-Spalbuf ; 

of fvalua«_PP_OFF (p) ; 

_asm  aov  dx.offvalua 
_aam  aov  bx,k 
_aam  mov  cx,  j 
_aam  aov  ax, 1012b 
_aaa  int  10b 
widtbl  -  640; 
braak; 

caaa  ' 6' :  /*320x200  grapbioa  moda*/ 

_aam  mov  ax, 13h 
_aam  int  10b 

/*Sat  up  palatta*/ 

3-256; 

k-0; 

p-Spalbuf; 

oifvalua»_FP_OFF (p) ; 

_aam  mov  dx, offvalua 
_aam  mov  bx,k 
_aam  mov  cx, j 
_aam  mov  ax, 1012b 
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♦define  SOURCE  'Default Source" 

♦include  <lo.h> 

♦include  <do».h> 

♦include  <bio».h> 

♦include  <etdio.b> 

♦include  <ctype.h> 

♦includa  <conio.h> 

♦inoluda  <atring.h> 

♦includa  <atdllb.b> 
ilncluda  <prooaaa.h> 

/•Global*  begin*/ 

unaignad  char  inbuf [450] ,voioa_buf far [2000] ; 
unsigned  char  buffer [2000] , palbuf [770] , inpalbuf [770] ; 
ohar  palbuf 1 [256] [3] , atringl [100] , auparbuf [10000] , nawaddr [100] ; 
obar  atoral [ 10 ] , _ huga  *hbuf , opl , op 2 , ep3 , src_test [ 6] , _ far  *nawadd; 

unaignad  int  typel, tempi, tamp2, tamp3, tamp 5, temp6,b, ouraag, temp4; 
int  count-0, xdim»320,_intaag>_intoff , flag-0; 
union  _REGS  inraga,  outrage; 

void  _ far  *fptr ,  _ far  *p; 

atruot  _SREGS  aagraga; 

typadaf  atruot  { 

unaignad  ohar  daataddr[6]; 
unaignad  char  srcaddr [£] ; 
int  pkttypa; 
char  data[5000]; 

)  buffartypa; 

buffartypa  buffer_set; 

/•Globale  and*/ 

/*Acoaaa  network  statue*/ 
ip_arror () 

[ 

if  (outrage. h.dh— 1)  printf ("Bad  Handle \n") ; 
if  (outrage. h.dh— 2)  printf ("No  Cla*e\n”) ; 
if  (outrage .h.dh— 3)  printf ("No  Type\n") ; 
if  (outrage. h.dh— 4)  printf  ("No  Number \n" )  ; 
if  (outrage. h.dh— 5)  print f ("Bad  Typ*\n'); 
if  ( out raga. h.dh— 6)  printf ("No  Multicaat\n") ; 
if  (out raga. h.dh— 7)  printf ("Can' t  Tarminate\n")  ; 
if  (outrage. h. dh— 8)  printf ("Bad  Moda\n') ; 
if  (outrage. h.dh— 9)  printf  ("Ho  Space\n'); 
if  (outrage. h.dh— 10)  printf ("Type  Zn  U*e\n") ; 
if  (outrage. h.dh— 11)  printf  ("Bad  Comaand\n'') ; 
if  (out raga .h.dh— 12)  printf ("Can' t  S*nd\n'); 
if  (outrage. h.dh— 13)  printf ("Can' t  Set\n~); 
if  (outrage. h.dh— 14)  printf ("Bad  %ddraaa\n”)  ; 
if  (outrage. h.dh— 15)  printf ("Can' t  Reset \n'); 

) 

/•Interrupt  aarvica  routine*/ 

void  _ interrupt  receiver () 

{ 

_ earn 

{ 

cli 

OR  ax, ax 

jns  a*cond_call 

mov  ax, SEC  buffer  aat 
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mov  «i, ax 

bov  tx,OffSII  buf far_aat 
bov  di , ax 
aov  ox, OSOOh 
sti 


a«oond_oall : 
oil 

bov  ax, ox 
aap  ax,  364 
jna  rat_iabal 
xor  ax, ax 

aov  al,  byta  ptr  buff«r_»at . data [2 9] 
aov  dx,320 
auX  dx 
aov  b,  ax 

aov  ax,  SEC  buffar_aat 
aov  da , ax 

aov  ax,  OFFSET  buffar_aat 

add  ax, 44 

aov  ai , ax 

aov  ax, OAOOOh 

aov  aa,  ax 

aov  di,  b 

mov  ox,  X60 

rap  movab 

mov  ax,b 
add  ax,  320 
mov  b,  ax 

mov  ax.SEG  buffar_aat 
mov  da , ax 

mov  ax,  OFFSET  buffer  aat 

add  ax. 204 

mov  ai , ax 

mov  ax, OAOOOh 

mov  aa.ax 

mov  di ,  b 

mov  cx,  X60 

rap  movab 

ati 

rat_labal:  irat 

) 

> 

/•Main  program  bagina*/ 
main  () 

( 

int  ix,b, bay, typa, ouroff , ouraagX, ro, J, X,k, int_no, typ, handle, tyipx«80; 
char  jo, far  *lpVoicaBuf , far  *tampx,far  *teng>y,far  ‘tempi, *ch_prt, tyip[2] ; 
unaignad  char  far  *atringl,cp; 
unaignad  int  aagd, offd; 
long  i; 

FXLE  •outfila, *inf ile; 

ne wadd-ne vaddr ; 

tyip[0]-'8'; 

tyip[l]-'0'; 

/•Scan  intarrupta  0x60  to  0x80  to  find  packet  drivar*/ 

b«4*96; 

int  no"-l; 
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for  (teapl“0;tampl<32;taapl++) 

{ 

ouraagl«0; 

_ a  am  mov  [ouraagl] 

_aam  mov  bx,b 
_>as  bov  ax, aa : [bx] 

_aaa  aov  our of f , ax 
_aam  inc  b 
_aam  ine  b 

_aaa  aov  bx,b 
_aaa  aov  ax, aa : [bx] 

_aam  aov  ouraagl , ax 
_aam  Inc  b 
_aaa  inc  b 

for  (tamp2*>0;tamp2<10;tamp2++) 

t 

_aam  aov  aa, [ouraagl] 

_»am  aov  bx, [ouroff] 

_aaa  aov  al,aa:[bx] 

_aaa  aov  op, al 
_aaa  inc  ouroff 
atoral [tamp2] «cp; 


if  ( (atoral[3]“'P' )  ss  <atoral[4]  —  'K' )  ((  (atoral [5]  — '  T' ) ) 

( 

ouroff-"10; 
int_no»tampl+ 96; 
goto  drvinfo; 


drvinf o : 


/•Sat  addraaa  to  baginning  of  vidao  mamory*/ 
ouraag  -  OxOAOOO; 

/*Gat  information*/ 
inraga .h.»h»0x01; 
inraga . h . al«Oxf f  ; 

_int86x(int_no, sinraga, tout raga, Saagraga)  ; 

tampl-out raga . x . bx; 

cp»out raga .b . cb; 

typ“cutraga . x . dx; 

cpl-out raga . b . cl ; 

cp2»out r aga . b . al ; 

tamp2-aagrags . da ; 

tamp3~out  raga  .x.ai; 
printf ("Varaion:  %i\n”, taapl) ; 

printf ("Claaa:  %i\n",cp); 

printf ("Typa:  %i\n',typ); 
printf ("Dunbar:  %i\n",cpl); 
printf (*Na»a :  ”) ; 

_FP_SEG (taapx) — tamp 2  ; 

_FP_OFF (taapx) «tamp3 ; 
printf  C>%a",  tampx)  ; 
printf ("\n")  ; 

printf ("Functionality;  %i\n',cp2) ; 

/•Cat  atbarnat  addraaa  of  natwork  card*/ 
gataddr : 
inraga. h.ah*6; 

aagraga.aa-_FP_SKG(atringl) ; 
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lnnf  i .  x  ,di«_rP_On  ( itrlngX)  ; 
inrags .x.ox—12; 

_int86x(int_no, cinrags, Coutrags,  Csagrags) ; 
printf ("Addrass :  '); 

for  (i-0;i<-5;i++)  printf <"%02x', stringlfi] ) ; 
print f  ("\n")  ; 

/•fiat  atharnat  sddrass  to  a  conaon  addrass*/ 
sataddr: 

nawaddr [0] »0x00; 
nawaddr [1] “0x00; 
nawaddr [ 2 ] “OxCO ; 
nawaddr [3 ] “0x4*; 
nawaddr [ 4 ] -0xA6; 
nawaddr [5 ] “0x2C; 
inrags .h . ab-25; 
inrags . x . bx—handla ; 
sagrags . as“_FP_SKC (nawadd) ; 
inrags . x . di“_FP_0FF ( nawadd) ; 
inrags .x . cx“6; 

_int86x(lnt_no, cinrags, coutrags, Csagrags) ; 

/•Sat  now  atharnat  addrass  to  inaura  obanga*/ 
gataddrl : 
inrags .b . ab“6; 

sagrags .as-_FP_SSO (atringl) ; 
inrags. x.di«_FP_OFF(atringl) ; 
inrags . x . ox-12 ; 

_int86x(int_no, Cinrags, Coutrags, Csagrags) ; 
printf ("Addrass;  *); 

for  (i-0; i<-5; i++)  printf ("%02x", stringl [i] ) ; 
printf <"\n') ; 

/•Acaass  typa  and  sat  up  intarrupt  aarvica  routlna*/ 

acctypa : 

inrags .h.ab-2; 

inrags.h.al-1; 

inrags . x . bx-typ; 

inrags.h.dl-apl; 

sagrags. ds«_FP_SEG (tyipx) ; 

inrags .x. si“_FP_OFF (tyipx) ; 

inrags. x.ox-0; 

outfila-fopan ("data. out", "w") ; 

fprintf (outfila, *%p",_raoaivar)  ; 

f closa (outfila) ; 

infila-fopan ("data-out", "r") ; 

fsoanf (infila, "%x:%x" , c  intsag, C  intoff); 

f closa (inf ila ) ; 

ramova ("data . out') ; 

sagrags . as-_int sag; 

inrags . x . di-_intof f +23 ; 

printf ("*p  \n",_racaivar); 

_int86x(int_no, cinrags, Coutrags, Csagrags) ; 
bandla—out rags . x . ax; 
if  (outrags.b.dh  t“  0)  ip_arror  (); 
alsa  printf ("Bandla  %i\n”,bandla) ; 

/•Sat  racaiva  moda*/ 
satracamoda : 
inrags .h . ah-20; 
inrags .x.bx-handla; 
inrags.x.cx-3; 

_int86x(int_no, cinrags, Coutrags, Csagrags) ; 
if  (outrags.b.dh  !“  0)  ip_arror  (); 
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/•Gat  racaiva  moda*/ 
gatrcmod* : 
inraga .h . ah-21; 
inraga .x.bx»bandla; 

_lnt 86x ( int__no ,  tinraga,  toutraga,  taagraga)  ; 
if  (outraga.b.db  !■>  0)  ip_arror(); 
alaa  print f ('Racaiva  mod*  %i\n  " , outraga . x.ax) ; 
gatob ( ) ; 

/•Sat  taxt  moda*/ 

_aam  mov  ax, 13h 
_taa  int  10b 

/•Sat  palatta  to  grayacala*/ 
for  (k«0;k<»255;k++) 

< 

palbufl [k] [0] “k/4; 
palbuf 1 [k] [l]-k/4; 
palbufl [k] [2]-k/4; 

> 

/*Snabla  palatta*/ 

j-2S6; 

k-0; 

paCpalbufl; 

1“ (int)p; 

_aam  mov  dx,  1 
_aam  mov  bx, k 
_aam  mov  cx, j 
_aam  mov  ax, 1012h 
_aam  int  10b 

/•Polling  loop*/ 
labal2: 

i-f  (_kbhit  ()  !»0)  goto  laball; 
goto  labal2; 

laball: 

kay-gatch ( ) ; 
switch  (kay) 

{ 

oaat  ' t'  :  /‘Quit*/ 

_aam  mov  ax,  3 
_aam  int  10b; 

/•Raaat  addraaa*/ 
aataddrl : 
i nraga . b . ab« 25; 
aagraga .aa«_FP_SKG (atringl) ; 
inraga . x . di«_FP_0FF (atringl) ; 
inraga. x.cx>6; 

_i nt  8  6x ( i nt_no , tinraga, toutraga, taagraga) ; 

/•Ralaaaa  typa*/ 
inraga . b . ab*2  0 ; 
inraga . x . bx-bandla ; 
inraga .x.cx”3; 

_int86x(int_no, tinraga, toutraga, taagraga) ; 
if  (outraga. b.db!a0)  ip_arror  (); 

/•Tarmination  hand la*/ 
inraga . x . ax»0x0300 ; 
inraga . x . bx-bandla ; 

_int86x(int_no, tinraga, toutraga, taagraga) ; 
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caae  '  2'  : 


exit<0); 
break ; 


/•Record  video  frame  to  quadrant-1*/ 
for  <i-0;i<-99;i++) 

{ 

for  (j-0; j<-159; j++) 

< 

b-i*320; 
b-b+j ; 


_IUQ 

mov 

ax, OAOOOh 

mov 

ea,  ax 

_ *sm 

mov 

bx,  b; 

mov 

al,  ea :  [bx] 

aam 

mov 

cp,  al 

b-b+160; 

_aam 

mov 

ax, OAOOOh 

_tim 

mov 

ea,  ax 

JIB 

mov 

al.cp 

_aam 

mov 

bx,  b; 

_aam 

mov 

ea: [bx] ,  al 

} 

) 

break; 

/•Record  video  frame  to  quadrant-3*/ 
for  <i-0;i<-99;i++) 

{ 

for  ( 3*0; j<«159; j++) 

{ 

b«i*320; 
b-b+j ; 

_a«m  mov  ax, OAOOOh 
_asm  mov  ea,  ax 
_aam  mov  bx,b; 

_aam  mov  al,ea:[bx] 

_aam  mov  cp,  aX 
b-b+320*l00; 

_aam  mov  ax, OAOOOh 
_aam  mov  ea,  ax 
_aam  mov  al,cp 
_aam  mov  bx,b; 
aam  mov  ea: [bx] , al 

T 

) 

break; 


/•Record  video  frame  to  quadrant-4*/ 
for  (i  -  0;i<-99;i++) 

{ 

for  (j-0; j<-159; J++) 

{ 

b-i*320; 

b-b+j; 

_aam  mov  ax, OAOOOh 
_aam  mov  ea,ax 
_aam  mov  bx, b; 

_aam  mov  al,ea:[bx] 
aam  mov  cp, al 
b-b+3 2 0*1 00+160, ■ 

_aam  mov  ax, OAOOOh 
_aam  mov  ea,ax 
_aam  mov  al,cp 
aam  mov  bx,b; 
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The  IMAGE93  Host  Processor 


DECLARE  SOB  box  (row!,  column  I,  widthl!,  depth!,  for*!,  back!) 

' Include 

10  DIM  red# (256) ,  gr**n$ (256) ,  blu*$ (256) ,  red (256),  green (256),  blue (256), 
ix(100) 

IS  DIM  a (100) 

20  CLS 

22  updown  -  0:  headblts  »  0 

25  g8  ■  "gray. pal" 

26  SHELL  'veaal.exe' 

27  OPEN  'vesa.ini"  FOR  INFO?  AS  #1 

28  INPUT  #1,  v depth 

29  CLOSE  #1 

30  vdepth  -  vdepth  +  3 

31  LOCATE  1,  1:  COLOR  15,  1:  PRINT  "File  Edit  Video  Window  Compress  De¬ 
compress  Enhancement  Tools  " 

35  LOCATE  1,  1:  COLOR  0,  7:  PRINT  "File  keys  *  1 

39  GOSUB  display_status_box 

40  COLOR  7,  0  ~ 

42  a$  -  INKEY$ 

44  IF  a$  -  '"  THEN  GOTO  42 

50  IF  ASC (LEFTS (a$,  1))  -  0  AND  ASC (RIGHTS <a$,  1) )  -  77  THEN  keys  -  keys  +  1: 
GOSOB  Print_titl*_bar 

52  IF  ASC (LEFTS (a?,  1) )  -  0  AND  ASC (RIGHTS (aS,  1))  -  75  THEN  keya  -  keys  -  1: 
GOSOB  Print_titl*_bar 

53  IF  aS  <>  CHRS (13)  THEN  GOTO  42 

54  IF  (keys  ■  1)  THEN  GOSOB  6000 

56  IF  (keys  -  2)  THEN  GOSOB  6500 

57  IF  (keys  -  3)  THEN  GOSOB  7000 

58  IF  (keys  -  4)  THEN  GOSOB  7500 

59  IF  (keys  -  5)  THEN  GOSOB  8000 

60  IF  (keys  -  6)  THEN  GOSOB  8500 

61  IF  (keys  -  7)  THEN  GOSOB  9000 

62  IF  (keys  «  8)  THEN  GOSOB  9500 

67  GOTO  42 

Print_titl*_bar:  IF  keys  <«  0  THEN  keys  -  8 
4010  IF  keys  >  8  THEN  keys  »  1 
4015  VIEW  PRINT  1  TO  18 

4020  LOCATE  1,  1:  COLOR  15,  1:  PRINT  'File  Edit  Video  Window  Compress  De¬ 
compress  Enhancement  Tools  " 

4025  COLOR  0,  7 

4030  IF  keys  -  1  THEN  LOCATE  1,  1:  PRINT  'File  " 

4040  IF  keys  -  2  THEN  LOCATE  1,  6:  PRINT  '  Edit  ' 

4050  IF  keys  -  3  THEN  LOCATE  1,  12:  PRINT  *  Video  ' 

4060  IF  keys  -  4  THEN  LOCATE  1,  20:  PRINT  '  Window  " 

4070  IF  keys  -  5  THEN  LOCATE  1,  29:  PRINT  *  Compress  " 

4080  IF  keys  «  6  THEN  LOCATE  1,  40:  PRINT  *  Decompress  ' 

4085  IF  keys  -  7  THEN  LOCATE  1,  53:  PRINT  *  Enhancement  " 

4087  IF  keys  -  8  THEN  LOCATE  1,  65:  PRINT  ~  Tools 
4090  COLOR  7,  0 
4100  RETURN 

6000  row  «  2:  column  -  1:  widthl  “  21:  depth  “  14:  fore  »  15:  back  “  1 
6005  VIEW  PRINT  2  TO  18 

6010  CALL  box(row,  column,  widthl,  depth,  fore,  back) 

6020  COLOR  7,  0:  LOCATE  3,  2:  PRINT  'Load  BIN  Image  ':  aelectl  -  3 

6030  COLOR  fore,  back:  LOCATE  4,  2:  PRINT  'Display  BMP 

6035  LOCATE  5,  2:  PRINT  'Display  PCX 

6040  LOCATE  6,  2:  PRINT  'Load  Palette 

6045  LOCATE  7,  2:  PRINT  'Save  Palette /Gray  ~ 

6050  LOCATE  8,  2:  PRINT  'Convert  PCX  to  BIN" 

6070  LOCATE  9,  2:  PRINT  'Copy  File 
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6080 

LOCATE 

10, 

2: 

PRINT 

"Raname 

Fila 

* 

6090 

LOCATE 

11. 

2: 

PRINT 

"Dalata 

Fila 

m 

6097 

LOCATE 

12, 

2: 

PRINT 

"Print 

Imaga 

" 

6098 

LOCATE 

13, 

2: 

PRINT 

"Shall 

m 

6100 

LOCATE 

14, 

2: 

PRINT 

"Quit 

m 

6120  a$  «  INKBY$ 

6130  IF  -  •“  THEN  GOTO  6120 
6132  IF  •$  <>  CHR9 (13)  THEN  GOTO  616S 

6135  IF  (aalactl  -  14)  THEN  VIEW  PRINT :  CLS  :  END 

6136  ZF  (aalactl  -  3)  THEN  GOSUB  Gat_RGB :  GOTO  6000 

6137  ZF  (aalactl  -  4)  THEN  GOSOB  Gat~BMP :  GOTO  6000 

6138  ZF  (aalactl  -  6)  THEM  GOSOB  Gat~PAL:  GOTO  6000 

6139  ZF  (aalaotl  -  13)  THEN  GOSOB  8HELL1:  GOTO  6000 

6140  ZF  (aalactl  -  7)  THEN  GOSOB  palgray:  GOTO  6000 

6150  ZF  (aalaotl  -  8)  THEN  GOSOB  oonvar:  GOTO  6000 

6152  ZF  (aalaotl  -  5)  THEN  GOSOB  pox:  GOTO  6000 

6155  ZF  (aalaotl  *  12)  THEN  GOSOB  printf:  GOTO  6000 

6160  ZF  ((aalaotl  >-  9)  AND  (aalaotl  <■  11))  THEN  GOSOB  copyfila:  GOTO  6000 
6165  GOSOB  atd  box  atuff 
6180  GOTO  612 0~ 

6190  RETURN 

6500  row  «  2:  column  ■  4:  widthl  ■  30:  dapth  ■  15:  fora  -  15:  back  ■  1 
6505  VZSN  PRINT  2  TO  18 

6510  CALL  box (row,  oolumn,  widthl,  dapth,  fora,  back) 

6520  COLOR  7,  0:  LOCATE  3,  5:  PRINT  "Chop  Imaga  «:  aa¬ 

lactl  «  3 

6530  COLOR  fora,  back:  LOCATE  4,  5:  PRINT  "Vi  aw  Bit  Plana (a) 

6540  LOCATE  5,  5:  PRINT  'Show  RED  Palatta 

6550  LOCATE  6,  5:  PRINT  "Show  GREEN  Palatta 

6560  LOCATE  7,  5:  PRINT  "Show  BLOB  Palatta 

6570  LOCATE  8,  5:  PRINT  "Show  aa  Grayaoala 

6580  LOCATE  9,  5:  PRINT  "Subtract  Filaa  Byta-by-Byta” 

6590  LOCATE  10,  5:  PRINT  "Add  Filaa  Byta-by-Byta 
6600  LOCATE  11,  5:  PRINT  "Examina  an  Imaga  * 

6610  LOCATE  12,  5:  PRINT  "Examina  Two  Xmagaa 

6612  LOCATE  13,  5:  PRINT  "Paata  Top-tO-Bottom  * 

6614  LOCATE  14,  5:  PRINT  "Paata  Sida-by-Sida 

6616  LOCATE  15,  5:  PRINT  "Edit  DFT  Fila 

6620  a$  •  INKEY5 

6630  IF  a$  -  "”  THEN  GOTO  6620 

6635  IF  a$  <>  CHR$ (13)  THEN  GOTO  6679 

6640  IF  (aalaotl  -  3)  THEN  GOSOB  ohop_imaga:  GOTO  6500 

6650  IF  (aalaotl  >■  4)  AND  (aalaotl  <*  8)  THEN  GOSOB  bitjplanaa:  GOTO  6505 

6660  IF  (aalactl  ■  9)  THEN  GO.c”D  diffar:  GOTO  6500 

6662  IF  (aalaotl  -  10)  THEN  GOSOB  diffar:  GOTO  6500 

6664  IF  (aalactl  -  11)  THEN  GOSOB  aball_lookona :  GOTO  6500 

6666  IF  (aalaotl  ■  12)  THEN  GOSOB  ahall~looktwo:  GOTO  6500 

6667  IF  (aalactl  -  13)  THEN  GOSOB  paataT  GOTO  6500 

6668  IF  (aalactl  »  14)  THEN  GOSUB  paata:  GOTO  6500 

6669  IF  (aalactl  -  15)  THEN  GOSOB  adit  dft:  GOTO  6500 

6679  GOSOB  atd  box_atuff 

6680  GOTO  6620~ 

6690  RETURN  42 

7000  IF  kaya  “  3  THEN  row  “  2:  oolumn  “  10:  widthl  “  21:  dapth  <■  vdapth:  fora  ■ 

15:  back  -  1 

7005  VIEW  PRINT  2  TO  18 

7010  CALL  box (row,  column,  widthl,  dapth,  fora,  back) 

7020  COLOR  7,  0:  LOCATE  3,  11:  PRINT  *320X200  256  Colora”:  aalactl  -  3 

7030  IF  vdapth  >■  4  THEN  COLOR  fora,  back:  LOCATE  4,  11:  PRINT  "640X480  256  Col- 
ora” 

7040  IF  vdapth  >■  5  THEN  COLOR  fora,  back:  LOCATE  5,  11:  PRINT  "800X600  256  Col- 

ora” 

7050  IF  vdapth  >•  6  THEN  COLOR  fora,  back:  LOCATE  6,  11:  PRINT  *1024X768  256  Col- 
ora” 


Appendix  AA  The  IMAGE93  Host  Processor 


AA3 


7120  a4  -  INKSY4 

7130  IT  *4  -  —  THEN  GOTO  7120 

7135  17  *4  ■  CHR3(13)  THEN  dmode  “  salactl  -  3:  GOSOB  display  status  box:  GOSOB 
7000 

GOSOB  std  box  stuff 
7180  GOTO~7120 
7190  RETURN 

7500  17  keys  ■  4  THEN  row  “  2:  column  ■  16:  widthl  ■  21:  dapth  ■  3:  fora  »  15: 
back  m  l 

7505  VIEW  PRINT  2  TO  18 

7510  CALL  box (row,  column,  widtbl,  dapth,  fora,  back) 

7520  17  f8  <>  '"  THEN  COLOR  7,  0:  LOCATE  3,  column  +  1:  PRINT  'Display 

Imago  ~ :  saloctl  «  3 

7620  a4  -  INKEY4 

7630  IP  a4  -  '"  THEN  GOTO  7620 

7635  17  (a4  -  CHR4 (13) )  AND  (f4  <>  '")  THEN  GOSOB  Load_T7ILR:  GOTO  7505 
GOSOB  std  box  stuff 
7680  GOTO~7620 
7690  RETURN 


8000  row  ■  2:  column  -  24:  widthl  «  22:  dapth  -  12:  fora  ■  15:  back 
8005  VIEW  PRINT  2  TO  18 

8010  CALL  box (row,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  3,  column  +  1:  PRINT  'Huffman  « 

3 

COLOR  fora,  back:  LOCATE  4,  column  +  1:  PRINT  'Adaptive  Huffman 
LOCATE  5,  column  +  1:  PRINT  'Arithmetic  Order  0  * 


” :  salactl  « 


COLOR  fora,  back:  LOCATE  4,  column  +  1:  PRINT  'Adaptive 
LOCATE  5,  column  +  1:  PRINT  'Arithmetic  Order  0  ” 

LOCATE  6,  column  +  1:  PRINT  'Arithmetic  Order  1  ” 

LOCATE  7,  column  +  1:  PRINT  'Arithmetic  Order  2  * 

LOCATE  8,  column  +  1:  PRINT  'LZN  (ZIP) 

LOCATE  9,  column  +  1:  PRINT  *LZW  (LHARC)  " 

LOCATE  10,  column  +  1:  PRINT  'Cosine 

LOCATE  11,  column  +  1:  PRINT  'Sina 

LOCATE  12.  column  +  1:  PRINT  'Hadamard 

8120  a$  *  INKEY4 

8130  IF  a$  -  '*  THEN  GOTO  8120 

8135  IF  a4  <>  CHR$ (13)  THEN  GOTO  8162 

8140  IF  (salactl  -  8)  THEN  GOSOB  SHELL_xip:  GOTO  8000 

8142  IF  (salactl  -  4)  THEN  GOSOB  SHELL~ahuff:  GOTO  8000 

8144  IF  (salactl  -  3)  THEN  GOSOB  SHELL~huff:  GOTO  8000 

8146  IF  (salactl  -  5)  THEN  GOSOB  SHELL~arl0:  GOTO  8000 

8148  IF  (salactl  «  6)  THEN  GOSOB  SHELL~aril:  GOTO  8000 

8150  IF  (salactl  ■  7)  THEN  GOSOB  SH£LL_ari2:  GOTO  8000 

8152  IF  (aeleotl  »  9)  THEN  GOSOB  SHSLL_lharc:  GOTO  8000 

8154  IF  (salactl  «  10)  THEN  COSOB  dot  box:  GOTO  8000 

8156  IF  (salactl  -  11)  THEN  GOSOB  dct~box :  GOTO  8000 

8158  IF  (salactl  •  12)  THEN  GOSOB  dct~box:  GOTO  8000 


8142  IF  (salactl  -  4)  TH 
8144  IF  (salactl  -  3)  TH 
8146  IF  (salactl  -  5)  TH 
8148  IF  (salactl  -  6)  TH 
8150  IF  (salactl  >  7)  TH 
8152  IF  (salactl  ■  9)  TH 
8154  IF  (salactl  -  10)  T 
8156  IF  (salactl  -  11)  T 
8158  IF  (salactl  -  12)  T 
8162  GOSOB  std_box_stuff 
8180  GOTO  8120 
8190  RETURN 


8500  IF  keys  ■  6  THEN  row  *  2:  column  *  35:  widthl  ■  22:  dapth  ■  12:  fora  ■  15: 
back  ■  1 

8505  VIEW  PRINT  2  TO  18 

8510  CALL  box (row,  column,  widthl,  dapth,  fora,  bsck) 

8520  COLOR  7,  0:  LOCATE  3,  column  +  1:  PRINT  'Huffman  -•  so¬ 

la  ctl  a  3 

8530  COLOR  fora,  back:  LOCATE  4,  column  +  1:  PRINT  'Adaptive  Huffman 
8540  LOCATE  5,  column  +  1:  PRINT  'Arithmetic  Order  0  ” 

8542  LOCATE  6,  column  +  1:  PRINT  'Arithmetic  Order  1  - 

8544  LOCATE  7,  column  +  1:  PRINT  'Arithmetic  Order  2  * 

8550  LOCATE  8,  column  +  1:  PRINT  'LZN  (ZIP) 

8552  LOCATE  9,  column  +  1:  PRINT  'LZN  (LHARC) 

8560  LOCATE  10,  column  +  1:  PRINT  'Coaine  - 


AA4 


Appendix  AA  The  IMAGE93  Host  Processor 


*570  LOCATE  11,  column  4  1:  PRINT  "Sine 

8580  LOCATE  12,  eoluan  +  1:  PRINT  "Hadaaurd  ' 

8620  •$  -  INKEY$ 

8630  IF  a$  -  —  THEN  SOTO  8620 
8635  IF  a$  <>  CHR$ (13)  THEN  SOTO  8675 

8640  IF  (seleetl  -  8)  THEN  SOS OB  SHKLL_untlp :  SOTO  8500 
8642  IF  (aalectl  -  4)  THEN  60S0B  SHELL_aunbuf f :  SOTO  8500 
8644  IF  (seleetl  -  3)  THEN  60S0B  SHELL_unhuf f :  SOTO  8500 
8646  IF  (aalaetl  “  5)  THEN  SOSOB  8HELL~unarlO :  SOTO  8500 
8648  IF  (aalaetl  -  6)  THEN  SOSOB  SHELL~unaril :  SOTO  8500 
8650  IF  (aalaetl  -  7)  THEN  SOSOB  SHELL~unari2 :  SOTO  8500 
8652  IF  (aalaetl  -  9)  THEN  SOSOB  SHSuTunlharc :  SOTO  8500 
8654  IF  (aalaetl  -  10)  THEN  SOSOB  invdctjbox:  SOTO  8500 
8656  IF  (aalaetl  -  11)  THEN  SOSOB  invdet~box:  SOTO  8500 
8658  IF  (aalaetl  -  12)  THEN  SOSOB  invdet  box:  SOTO  8500 
8675  SOSOB  atd  box  stuff 
8680  SOTO  8620 
8690  RETORN 

9000  row  *  2:  eoluan  “  50:  wldtbl  “  27:  depth  »  11:  fore  ■  15:  back  m  1 
9005  VIEW  PRINT  2  TO  18 

9010  CALL  box (row,  eoluan,  wldtbl,  depth,  fora,  back) 

9020  COLOR  7,  0:  LOCATE  3,  eoluan  4  1:  PRINT  "2-D  Fourier . * 

aalaetl  ■  3 

9030  COLOR  fora,  back:  LOCATE  4,  eoluan  4-  1:  PRINT  "Singular  Valued  Decomp . . ' 

«  0t 

9031  LOCATE  5,  eoluan  4-  1:  PRINT  "Detect  Edges . ' 

9032  LOCATE  6,  column  4  1:  PRINT  "Nolaa  Cleaning . ' 

9033  LOCATE  7,  column  4  1:  PRINT  "Criapan  Image . ' 

903S  LOCATE  8,  column  4  1:  PRINT  "Contract  Manipulation...' 

9040  LOCATE  9,  column  4  1:  PRINT  "Morphological . ' 

9051  LOCATE  10,  column  4  1:  PRINT  "Median  Filter . ' 

9060  LOCATE  11,  column  4  1:  PRINT  "Imaga  Thresholding . ' 

9120  a$  -  INKEY$ 

9130  IF  a$  -  "'  THEN  SOTO  9120 
9132  IF  a$  <>  CHR$ (13)  THEN  SOTO  9111 

9135  IF  (aalaetl  «  6)  THEN  SOSOB  noiaaclaan:  SOTO  9000 

9140  IF  (aalaetl  •  7)  THEN  SOSOB  convolution:  SOTO  9000 

9042  IF  (aalaetl  «  5)  THEN  SOSOB  edge:  SOTO  9000 

9044  IF  (aalaetl  »  9)  THEN  SOSOB  dilating:  SOTO  9000 

9050  IF  (aalaetl  -  4)  THEN  SOSOB  SVD:  SOTO  9000 

9052  IF  (aalaetl  *  3)  THEN  SOSOB  Fourier:  SOTO  9000 

9054  IF  (aalaetl  “  8)  THEN  SOSOB  contract:  SOTO  9000 

9057  IF  (aalaetl  -  11)  THEN  SOSOB  tbraahar:  SOTO  9000 

9058  IF  (aalaetl  -  10)  THEN  SOSOB  median:  SOTO  9000 

9111  SOSOB  atd_box_atuff 

9180  SOTO  9120 
9190  RETURN 

9500  IF  kaya  »  8  THEN  row  “  2:  column  -  55:  widthl  -  22:  depth  m  6:  fora  «  15 
back  -  1 

9505  VIEW  PRINT  2  TO  18 

9510  CALL  box(row,  column,  widthl,  depth,  fora,  back) 

9520  COLOR  7,  0:  LOCATE  3,  column  4  1:  PRINT  "Calculate  Entropy  ':  aa 

lactl  “  3 

9530  COLOR  fora,  back:  LOCATE  4,  column  4  1:  PRINT  "Mean  Square  Error 
9540  LOCATE  5,  column  4  1:  PRINT  "Hiatogram 
9609  LOCATE  6,  column  4  1:  PRINT  "Load  Macroa 
9620  a$  -  INKEY$ 

9630  IF  a$  -  "'  THEN  SOTO  9620 

9640  IF  (aalaetl  -  3)  AND  (a$  -  CHR$ (13) )  THEN  SOSUB  entropy:  SOTO  9500 

9645  IF  (aalaetl  -  4)  AND  (a$  «  CHR$ (13) )  THEN  SOSUB  mae:  SOTO  9500 

9650  IF  (aalaetl  -  5)  AND  (a$  -  CHR$ (13) )  THEN  SOSUB  hiatogram:  SOTO  9500 

9669  IF  (aalaetl  -  6)  AND  (a$  *  CHR$(13))  THEN  SOSUB  macro:  SOTO  9500 
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GOSUB  atd  box  atuff 
9680  GOTO_9620 
9690  RETURN 


11000  RBN 

11010  FOR  i  >  column  +  1  TO  column  +  widthl  -  2 
11020  lx(i)  -  SCREEN (aalactl,  i) 

11030  NEXT  1 

11040  FOR  1  -  column  +  1  TO  column  +  widthl  -  2 

11050  LOCATE  aalactl,  i:  COLOR  fora,  back:  PRINT  CHR$(ix(i)) 

11060  NEXT 

11070  IF  aalactl  >>  (row  +  daptb  -  2)  THEN  aalactl  ■  (row  +  1)  ELSE  aalactl 
lactl  +  1 

11080  FOR  1  >  column  +  1  TO  column  +  widthl  -  2 
11090  ix(i)  -  SCREEN (aalactl,  1):  NEXT 
11100  FOR  1  «  column  +  1  TO  column  +  widthl  -  2 
11110  LOCATE  aalactl,  1:  COLOR  7,  0:  PRINT  CHR$(lx(l)) 

11120  NEXT 
11130  RETURN 


Gat_RGB : 

11200  REM  aubroutlna  for  collactlng  RGB  data  and  displaying  lmaga 
11205  haadblta  ■  0 :  updown  “  0 

11210  rowx  -  3:  columnx  >  22:  widthlx  »  58:  dapthx  >  6:  forax  >  15:  backx  -  1 
11220  VIEW  PRINT  2  TO  24 

11230  CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

11240  LOCATE  rowx  +  1,  columnx  4  1:  INPUT  "Typa  Imago  Filanama  f$ 

11242  IF  f$  -  ""  THEN  forax  -  0:  backx  -  0 

11244  IF  f$  «  *"  THEN  CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

11246  IF  f$  -  '*»  THEN  GOSUB  dlaplay_atatua_box:  GOTO  11285 

11250  LOCATE  rowx  +  2,  columnx  +  1:  INPUT  *Typa  X  Dlmanalon  xdlm 

11260  LOCATE  rowx  +  3,  columnx  +  1:  INPUT  "Typa  Y  Dlmanalon  " ;  ydim 

11262  IF  f$  >  ""  THEN  forax  «  0:  backx  -  0 

11264  IF  f$  »  *"  THEN  CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 
11270  GOSUB  display_status  box  'Print  thoaa  In  atatua  box 

112B0  GOSUB  Load_TFILE  'load  tfila  and  diaplay  lmaga 

11285  VIEW  PRINT  2  TO  18 
11290  RETURN 


macro: 

20200  OPEN  "macro . 1st"  FOR  INPUT  AS  #1 

20205  ic  -  0 

20210  1c  >  1c  +  1 

IF  EOF (1)  THEN  GOTO  20260 

20220  LINE  INPUT  #1,  a$(lc) 

20230  LINE  INPUT  il,  b$(ic) 

20250  GOTO  20210 
20260  CLOSE  «1 
lc  ■  lc  -  1 

row  »  2:  column  *  19:  widthl  «  36:  dapth  •  lc  +  2:  fora  ■  15:  back  ■*  1 
CALL  box(row,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0: 

FOR  1  -  1  TO  ic 

LOCATE  row  +  1,  column  +  1:  PRINT  a$(i);  :  aalactl  “  row  +  1:  COLOR  fora,  baak 
NEXT  1 

rap 6 4 :  a$  -  INKEY8 

IF  a$  -  **  THEN  GOTO  rap64: 

IF  ASC (LEFTS (a$,  1))  >27  AND  ASC (RIGHTS (a$,  1))  >27  THEN  GOSUB  claar_box:  RE¬ 
TURN 

IF  a$  -  CHR$ (13)  THEN  GOSUB  macrol:  GOSUB  ant64:  GOSUB  daar_box:  RETURN 
GOSUB  atd_box  atuff 
GOTO  rap 6? 

ant 64:  row  >  2:  column  >  19:  widthl  >  36:  dapth  >  ic  +  1:  fora  >  15:  back  >  1 
RETURN 
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macro 1 : 

OPEN  '‘tfila"  FOR  OUTPUT  AS  II 
PRINT  II,  daoda  +  1 
PRINT  II,  £| 

PRINT  II,  g$ 

PRINT  II,  xdlm 
PRINT  II,  ydim 
CLOSE  11 
SHELL  b|<ic) 

VIEW  PRINT:  COLOR  7,  0:  CLS  : 
COSUB  Print  title  bar 
RETURN 


COSUB  dieplay_atatua_box 


pax: 

REM  aubroutina  for  coilacting  PCX  data  and  diaplaying  image 
'headbita  -  0:  updown  •  0 

rone  -  3 :  coluanx  «  22 :  widthlx  “  58 :  daptbx  •  6 :  f orax  «  15 :  backx  ■>  1 
VIEW  PRINT  2  TO  24 

CALL  box (rowx,  coluanx,  widthlx,  dapthx,  forax,  backx) 

LOCATE  rowx  +  1,  coluauuc  +  1:  INPUT  "Type  Image  Filename  f$ 

IF  f$  “  *"  THEN  forax  -  0:  backx  -  0 

IF  f$  »  *"  THEN  CALL  box (rowx,  coluanx,  widthlx,  daptbx,  forax,  backx) 
IF  «  *  *'  THEN  GOSUB  diaplay  atatua_box:  RETURN 
OPEN  "tfile"  FOR  OUTPUT  AS  |1~ 

PRINT  II,  daoda  +  1 
PRINT  II,  f$ 

CLOSE  II 

SHELL  "PCXLOAD*  ' "loadgif" 

VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  diaplay  atatua  box 

GOSUB  Print_title  bar 

RETURN 


print f : 

REM  aubroutina  for  printing  image  to  laaerprinter 

headbita  »  0:  updown  •  0 

IF  f$  ■  *'  THEN  forax  *  0:  backx  »  0 

IF  f$  “  *"  THEN  CALL  box(rowx,  coluanx,  widthlx,  dapthx,  forax,  baakx) 

IF  f$  “  ""  THEN  GOSUB  diaplay_atatua_box :  RETURN 

OPEN  "tfila"  FOR  OUTPUT  AS  |1 

PRINT  II,  daoda  +  1 

PRINT  *1,  f$ 

PRINT  II,  g$ 

PRINT  11,  xdlm 
PRINT  II,  ydim 
CLOSE  II 
SHELL  ~printb” 

VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  diaplay  atatua  box 

GOSUB  Print_title_bar 

RETURN 


Get_BMP : 

11300  REM  aubroutina  for  collecting  BMP  data  and  diaplaying  image 

11310  rowx  »  3:  coluanx  “  22:  widthlx  “  58:  dapthx  -  4:  forax  ■  15:  baakx  m  1 

11320  VIEW  PRINT  2  TO  24 

11330  CALL  box (rowx,  coluanx,  widthlx,  dapthx,  forax,  backx) 

11340  LOCATE  rowx  +  1,  coluanx  +  1:  INPUT  "Type  Image  Filanaaa  f$ 

11342  forax  »  0:  backx  ■  0 

11344  CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

11348  IF  f$  •  *'  THEN  GOSUB  diaplay_atatue  box:  GOTO  11390 

11350  GOSUB  Get_BMP_file  ~  'Gat  BMP  file 

11370  GOSUB  diaplay_atatua_box  ’Print  thaaa  in  atatua  box 

11380  GOSUB  Load  TFILS  'load  tfilo  and  diaplay  image 

11390  VIEW  PRINT~2  TO  18 

11395  RETURN 
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display_status_box : 

11400  VIEW  PRINT:  rows  -  19:  columns  •  1:  vidthlz  «  79:  depths  •  5:  (ortz  “  15: 
backs  “  4 

11402  CALL  boxfrowz,  column! ,  widthlz,  daptbz,  foraz,  backs) 

11404  LOCATE  20,  30:  COLOR  IS,  4:  PRINT  'Status  Window' 

11405  LOCATE  21,  12:  COLOR  15,  4:  IP  dmoda  •  0  THEN  PRINT  '320  X  200  Vidao  Moda' 

11410  IP  dmoda  »  1  THEN  PRINT  '640  X  480  Vidao  Hoda' 

11420  IP  dmoda  «  2  THEN  PRINT  *800  X  600  Vidao  Moda' 

11430  IP  disoda  -  3  THEN  PRINT  '1024  X  768  Vidao  Moda' 

11440  LOCATE  21,  45:  PRINT  'Imaga  is  ';  f$ 

11450  LOCATE  22,  12:  PRINT  'Imaga  Dimanaiona  ara  ';  xdim;  ydim 

11460  LOCATE  22,  45:  PRINT  'Palatta  is  ';  g$ 

11590  RETURN 

Cat_PAL: 

11600  REM  aubroutina  for  oollacting  Palatta 

11610  rowx  »  3:  oolumnx  «  22:  widtblx  »  58:  daptbx  ■  4:  forex  -  15:  baakx  -  1 
11620  VIEW  PRINT  2  TO  24 

11630  CALL  box (rowx,  oolumnx,  widtblx,  daptbx,  forax,  backx) 

11640  LOCATE  rowx  +  1,  oolumnx  4-  1:  INPUT  'Typa  Palatta  ';  g$ 

11642  forax  •>  0:  backx  •*  0 

11844  CALL  box (rowx,  oolumnx,  widtblx,  daptbx,  forax,  backx) 

11670  COSUB  display  status  box  'Print  tbasa  in  status  box 

11675  VIEW  PRINT  2  TO  18  ~ 

11690  RETURN 

12000  REM 

12010  POR  i  »  column  t  1  10  column  +  widthl  -  2 
12020  ix (i)  -  SCREEN (salactl,  i) 

12030  NEXT  i 

12040  POR  i  ■  column  +  1  TO  column  -f  widtbl  -  2 

12050  LOCATE  salactl,  i:  COLOR  fora,  back:  PRINT  CBR?(ix(i)) 

12060  NEXT 

12070  IP  salactl  <-  (row  +  1)  THEN  salactl  «  (row  +  dapth  -  2)  ELSE  salactl  -  sa¬ 
lactl  -  1 

12080  POR  i  *  column  +  1  TO  column  +  widtbl  -  2 
12090  lx (i)  ■  SCREEN (salactl,  1):  NEXT 
12100  FOR  i  -  column  +  1  TO  column  +  widtbl  -  2 
12110  LOCATE  salactl,  i:  COLOR  7,  0:  PRINT  CHR$(ix(i)) 

12120  NEXT 
12130  RETURN 

LoadJTFILB : 

12200  REM  'Load  up  Tfila  and  Shall  to  Ellisl.axa 
12280  OPEN  'tfila'  POR  OUTPUT  AS  #1 
12290  PRINT  #1,  dmoda  +  1 

12300  PRINT  #1,  g$ 

12310  PRINT  #1,  f$ 

12320  PRINT  #1,  xdim 

12330  PRINT  #1,  ydim 

12340  PRINT  #1,  haadbits  'haadarbits  to  skip  is  zero 

12350  PRINT  #1,  updown  'start  on  first  lino 

12355  CLOSE  #1 

12360  SHELL  'display. exa' 

12370  VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  display  status_box 
12375  GOSUB  Print_tltla  bar 
12380  RETURN 

Get_BKP_f lie : 

21000  OPEN  f$  POR  BINARY  AS  <1 

21005  a$  -  INPUT? (1,  1):  b$  -  INPUT? (1,  1) 

21010  a?  *  INPUT? (1,  1) 

21020  b?  -  INPUT? (1,  1) 

21030  C?  -  INPUT? (1,  1) 


AA8 


Appendix  AA  The  IMAGE93  Host  Processor 


21040  dS  -  INPUTS  (1,  1) 

210S0  fall*  -  (ASC(aS)  +  ASC(b$)  *  256  +  ASC(CS)  •  256  “  2  +  ASC(dS)  •  256  *  3) 
21060  *6  -  INPUTS  (1,  1) 

21070  b$  -  INPUTS (1,  1) 

21080  as  -  INPUTS <1,  1):  bS  -  INPUTS (1,  1):  CS  -  INPUTS (1,  1):  d$  -  INPUTS (1,  1) 
21080  haadbita  -  (ASC(C$)  +  ASC(dS)  *  256) 


INPUTS (1,  1):  radS(j)  -  INPUTS (1, 


21100  aS  -  INPUTS  <1,  1):  bS  -  INPUTS  (1.  1):  CS  -  INPUTS  (1,  1):  dl 
21110  aS  -  INPUTS (1,  1):  bS  -  INPUTS (1.  1):  CS  -  INPUTS (1.  1):  dl 
21120  xdim  -  ASC  (CS)  -I-  256  *  ASC(dS) 

21130  aS  -  INPUTS (1,  1) :  bS  -  INPUTS (1,  1):  CS  -  INPUTS (1.  1):  dl 
21140  ydia  -  ASC(CS)  +  256  *  ASC(d$) 

21150  updown  >  1 
21160  gS  "  “bmp. pal" 

21170  FOR  i  -  1  TO  5 
21180  aS  -  INPUTS (1,  1) 

21190  NXXT  i 

21200  FOR  i  -  1  TO  25 

21210  a$  -  INPUTS (1,  1) 

21220  IF  i  -  18  THIN  numcolora  -  ASC(a$) 

21230  NS XT  1 

21240  OPEN  gS  FOR  OUTPUT  AS  #2 
21250  FOR  j  -  1  TO  numcolora 

21260  bluaS(j)  -  INPUTS (1.  1):  graanS ( j>  -  INPUTS (1,  1):  radS(j) 
1)  :  aS  -  INPUTS (1.  1) 

21270  NEXT  j 

21280  IF  numcolora  -  256  THEN  GOTO  21400 
21290  FOR  j  -  numcolora  -I-  1  TO  256 

21300  bluaS(j)  -  CHRS(O):  graanS(j)  -  CHRS (0) :  radS(j)  -  CHRS(O) 

21310  NXXT  j 

21400  FOR  j  -  1  TO  256 

21410  PRINT  #2,  radS(j); 

21420  NEXT  j 

21430  FOR  J  -  1  TO  256 

21440  PRINT  #2,  graanS (j); 

21450  NEXT  j 

21460  FOR  j  -  1  TO  256 

21470  PRINT  #2,  bluaS(j); 

21480  NEXT  j 
21490  CLOSE  #2 
21495  CLOSE  #1 

21498  CO SUB  diaplay_atatua  box 
21500  RETURN 


d S  -  INPUTS  (1.  1) 
d$  -  INPUTS  (1.  1) 


INPUTS  (1,  1) 


madian : 
blockaiza  >  3 

ant29:  row  •  7:  column  >  12:  widthl  >  38:  daptb 
VIEW  PRINT  2  TO  18 

CALL  box(row,  column,  widthl,  dapth,  fora,  back) 


widthl  >  38 :  daptb  >  8 :  fora  •  15 :  back  -  1 


"Sava  Aa . 


aalaetl  •  row 


fS 


COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  “Sava  Aa . :  aalaetl  >  row 

+  1 

COLOR  fora,  back:  LOCATE  row  -I-  2,  column  +  1:  PRINT  “Typa  Palatta  ■  gS 

COLOR  fora,  back:  LOCATE  row  +  3,  column  +  1:  PRINT  “Typa  Input  Filanama  -  f$ 

COLOR  fora,  back:  LOCATE  row  +  4,  column  +  1:  PRINT  “Typa  X-Dimanaion  ■  xdim 

COLOR  fora,  back:  LOCATE  row  +  5,  column  -f  1:  PRINT  “Typa  Y-Dimanaion  *  *;  ydim 

COLOR  fora,  back:  LOCATE  row  +  6,  column  +  1:  PRINT  “Typa  Blockaiza  (odd)  «  " ; 

blockaiza 

rap2  9 :  a$  -  INKEIS 

IF  aS  -  “"  THEN  GOTO  rap29: 

IF  ASC (LEFTS (a$,  1))  -  27  AMD  ASC (RIGHTS (a$,  1))  >27  THEN  GOSUB  olaarjbox:  RE¬ 
TURN 

IF  (aalaetl  -  (row  +  1))  AND  (a$  -  CHR$(13))  THEN  GOSUB  aball_madian:  GOSUB 
ant49:  GOSUB  claar_box:  RETURN 

IF  (aalaetl  <>  (row  -I-  1))  AND  (a$  -  CHRS  (13) )  THEN  GOSUB  q29:  GOTO  ant29 
GOSUB  atd_ box_atuff 
GOTO  rap29 
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ent49:  row  -  7:  column  •  4:  widthl  «  46:  dapth  “  8:  for*  «  15:  back  “  1 
RETURN 


REN  "Load  up  Tfila  and  gat  raady  to  shall  to  ztedlan.exe 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  -  19:  coluany  »  1:  widthly  -  79:  dapthy  -  5:  foray  “  15:  backy  •  4 
CALL  box (rowy,  coluany,  widthly,  dapthy,  foray,  backy) 

LOCATE  20,  2 

IP  aalaetl  -  (row  4  2)  THEN  INPOT  ~Typ*  Palatt*  g$ 

IP  aalaetl  “  (row  4  3)  THIN  INPOT  “Type  Input  Pllanaaa  " ;  f$ 

IP  aalaetl  “  (row  +  4)  THEN  INPOT  'Type  X-Dimanaion  of  Pllanaaa  xdlm 

IP  (aalaetl  -  (row  4  5))  THEN  INPOT  'Type  Y-Diaanalon  of  Pllanaaa  ydla 

IP  (aalaetl  •  (row  4  6))  THEN  INPOT  'Typa  Blockalza  (auat  be  odd)  ';  blockalza 

IP  blockalza  MOD  2  ■  0  THEN  blockalza  ■  blockalza  4  1 

COSOB  diaplay_atatua  box 

RETURN 


ah*ll_madlan : 

REM  'Load  up  Tfila  and  Shall  to  MEDIAN .EXE 
VIBN  PRINT  18  TO  24 
COLOR  7,  0 

rowz  ■  19:  columnz  «  1:  wldthlz  «  79:  dapthz  -  5:  foraz  - 
CALL  box(rowz,  columnz,  wldthlz,  dapthz,  foraz,  backz) 
LOCATE  20,  2:  INPUT  'Typa  Pllanama  to  Sava  " ;  h2$ 

IF  b28  »  '”  THEN  row  «  7:  column  -  46:  widthl  -  22:  dapth 
“  1:  GOSUB  claar_box 

IF  h2$  «  THEN  GOSUB  diaplay_atatua  box:  RETORN 
COLOR  7,0 

OPEN  'tfila'  FOR  OUTPUT  AS  #1 
PRINT  #1,  dmoda  +  1 
PRINT  #1,  g$ 

PRINT  #1,  f$ 

PRINT  *1,  xdlm 
PRINT  #1,  ydim 
PRINT  il,  haadar 
PRINT  *1,  updown 
PRINT  #1,  h2$ 

PRINT  #1,  blockalza 
CLOSE  *1 

SHELL  'ziadlan.axa' 

VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  dlaplay_atatua_box 

GOSUB  Print_titl*_bar 

RETURN 


15:  backz  -  4 


7:  fora  ■>  15:  back 


RETURN 


adgal: 

*nt53:  row  •  7:  column  ■  28:  widthl  m  22:  daptb  m  5:  fora  “  15:  back  “  1 
VIEW  PRINT  2  TO  18 

CALL  box (row,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  'Laplac*  4  Neighbor';  :  aala 
row  +  1 

COLOR  fora,  baok:  LOCATE  row  4-  2,  column  4  1:  PRINT  'Prawltt  8  Neighbor' 
COLOR  fora,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  'Separable  8  Neighbor' 
COSUB  a*oond3_box 
fin  *  0 

rapax:  a$  «  INKEY$ 

IF  a$  ■  *'  THEN  GOTO  rapax 
oldaal  -  aalaetl 


aalaetl  » 


fin  *  0 

rapax:  a$  «  INKEY$ 

IF  a$  ■  *'  THEN  GOTO 
oldaal  ■  aalaetl 
fin  ■  0 

IF  ASC (LEFT$  (a$,  1)) 
clear  box:  RETURN 


27  AND  ASC (RIGHTS (*$,  1))  -  27  THEN  GOSUB  ent54:  GOSUB 
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I r  (aS  -  CHR$  (13)  )  THIN  COSUB  convoll:  *«Uctl  -  oldaal:  IF  fin  -  1  THEN  RETURN 
COSUB  Btd_boX_etu£f 
COSUB  aacond3_box 
GOTO  rapax 

•nt54:  row  m  6:  column  *  1:  width!  >  50:  depth  >  11:  for*  >  15:  baak  »  1 
RETURN 

••cond3  box : 

IF  aalactl  -  e  THEN  hl$  -  'laplac*4“ 

IF  a*l*otl  -  9  THEN  hl$  -  'pr*vitt8" 

IF  aalactl  -  10  THEN  bl$  -  ”»ap8" 
biaaflag  •  1 

CALL  box  (6,  1.  24,  11,  0,  0) 

OPEN  hl$  FOR  INPUT  AS  #1 
INPUT  «1,  n 

rown  »  5:  columnn  *  24  -  5  *  n:  widthn  *  28  -  columnn :  daptbn  *  n  4  2 
CALL  box(rown,  columnn,  widthn,  dapthn,  15,  1) 
k  ■  n 

FOR  1  -  1  TO  n 
FOR  j  -  1  TO  k 

INPUT  il,  a:  LOCATE  6  +  i,  columnn  -  4  4  5  *  j:  PRINT  a 

NEXT  j 

NEXT  i 

CLOSE  *1 

RETURN 

atd  box  atuff:  IF  ASC (LEFTS (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -  27  THEN 
COLOR  7?  0:  CLS 

IF  ASC (LEFTS (aS,  1))  -  27  AND  ASC (RIGHTS (a$.  1))  *  27  THEN  RETURN  42 

IF  ASC (LEFTS (as,  1) )  -  0  AND  ASC (RIGHTS (•$ ,  1))  -  80  THEN  COSUB  11000 

IF  ASC (LEFTS (aS,  1))  -  0  AND  ASC (RIGHTS US,  1) )  -  72  THEN  COSUB  12000 

IF  ASC (LEFTS (a$,  1))  -  0  AND  ASC (RIGHTS U$.  1) )  -  77  THEN  kaya  -  kaya  +  1: 

COLOR  7,  0:  CLS  :  COSUB  Print  tit la  bar:  RETURN  54 

IF  ASC (LEFTS (a$,  1))  -  0  AND  ASC (RIGHTS (aS,  D)  -  75  THEN  kaya  *  kaya  -  1: 

COLOR  7,  0:  CLS  :  GOSUB  Print  titla  bar:  RETURN  54 
RETURN 

thraahar: 

row  ■  5 :  column  -  33 :  widthl  -  17 :  depth  »  4 :  for*  ■  15 :  back  -  1 
CALL  box(row,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  'By  Ocourranoa* :  aalactl  ■  row  +  1 

COLOR  fora,  back:  LOCATE  row  4  2,  column  +  1:  PRINT  'By  Value' 

rapmx:  a$  >  INKEYS 

IF  aS  >  **  THEN  GOTO  repauc 

IF  ASC (LEFTS (aS,  1))  >27  AND  ASC (RIGHTS (aS,  D)  -  27  THEN  GOSUB  dear  box:  RE¬ 
TURN 

IF  (aS  -  CHR$ (13) )  THEN  GOTO  labalmx 
GOSUB  atd_box_atuff 
GOTO  rapmx 
labalmx: 

aavaaal  >  aalactl 

hlS  *  fS 

antmx:  row  -  9:  column  ■  5:  widthl  >45:  dapth  >  7:  for*  >  15:  back  >  1 
IF  aavaaal  -  7  THEN  dapth  -  8 
VIEW  PRINT  2  TO  18 

CALL  box(rov,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  *  1:  PRINT  'Sava  Aa...';  :  aalactl  >  row  4-  1 

COLOR  fora,  back:  LOCATE  row  4-  2,  column  4  1:  PRINT  “Width"' ;  xdim 

COLOR  fora,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  'Haight*';  ydim 

COLOR  fora,  back:  LOCATE  row  4  4,  column  4  1:  PRINT  'Input  Filanaaia  ■  *;  hlS 

IF  aavaaal  -  6  THEN  COLOR  fora,  back:  LOCATE  row  4  5,  column  4  1:  PRINT  'Occur¬ 
rence  Thra ahold  >  ';  occth 
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IF  aavaaal  -  7  THEN  COLOR  fora,  back:  LOCATE  row  +  S,  column  +  ?•  PRINT  "Uppar 
Thraabold  «=  ";  uppartb 

IF  aavaaal  -  7  THEN  COLOR  fora,  back:  LOCATE  row  +  6,  column  +  1:  PRINT  "Lowar 
Tbrasbold  «  " ;  lowartb 

rapmy:  a$  •  INKEYS 

IF  a«  ■  *'  THEN  GOTO  rapmy: 

IF  ASC (LBFT$ (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -27  THEN  GOSOB  ant46:  GOSOB 
claar_box :  RETURN 

IF  (aalactl  -  (row  +  1))  AND  (a$  -  CHR$(13))  THEN  GOSOB  tbraa:  GOSOB  ant46: 

GOSOB  claarjsox:  RETORN 

IF  (aalactl  <>  (row  +  1))  AND  <a$  -  CHR$(13))  THEN  GOSOB  q26:  GOTO  antmx 
GOSOB  atd_box_atuff 
GOTO  rapmy 

ant46:  row  -  2:  column  -  5:  wldtbl  -  45:  daptb  -  15:  fora  -  15:  back  -  1 
RETORN 

q26 : 

REM  "Load  up  Tfila  and  Shall  dilata 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  -  19:  columny  -  1:  widtbly  -  79:  dapthy  -  5:  foray  ■  15:  backy  -  4 
CALL  box (rowy,  columny,  wldthly,  daptby,  foray,  backy) 

LOCATE  20,  2 

IF  aalactl  -  (row  +  2)  THEM  INPOT  "Typa  Width";  xdim 

IF  aalactl  -  (row  +  3)  THEN  INPOT  "Typa  Haight";  ydim 

IF  aalactl  -  (row  +  4)  THEN  INPOT  "Typa  Input  Filanama  ";  hl$ 

IF  (aavaaal  -  6)  AND  aalactl  -  (row  +  5)  THEN  INPUT  "Typa  Occurranca  Thraahold 

* ;  occtb 

IF  (aavaaal  -  7)  AND  aalactl  -  (row  +  5)  THEN  INPOT  "Typa  Oppar  Tbrasbold  *;  up- 
pa  rth 

IF  (aavaaal  -  7)  AND  aalactl  -  (row  +  6)  THEN  INPOT  "Typa  Lowar  Thraabold  *; 
lowarth 

GOSOB  diaplay_atatua_box 
RETORN 

tbraa : 

REM  "Load  up  Tfila  and  Shall  to  DCT.EXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowz  —  13:  oolumnz  —  1:  widthlz  -  79:  dapthz  —  5:  foraz  -  15:  backz  -  4 
CALL  box(rowz,  columnz,  widthlz,  dapthz,  foraz,  backz) 

LOCATE  20,  2:  INPOT  "Typa  Filanama  to  Sava  h2$ 

IF  h2$  -  **  THEN  row  -  7:  column  -  46:  widthl  *  22:  daptb  ■  7:  fora  -  15:  back 
-  1:  GOSOB  olaar_box 

IF  h2*  -  "'  THEN  GOSOB  dlapLay_statua  box:  RETORN 

COLOR  7,  0 

CLS 

OPEN  "tfila"  FOR  OUTPOT  AS  #1 

PRINT  #1,  dmoda  +  1 

PRINT  #1,  xdim 

PRINT  #1,  ydim 

PRINT  «1,  hl$ 

PRINT  #1,  h2$ 

IF  aavaaal  -  6  THEN  PRINT  «1,  occtb 

IF  aavaaal  -  7  THEN  PRINT  #1,  uppartb 

IF  aavaaal  -  7  THEN  PRINT  #1,  lowartb 

CLOSE  #1 

IF  aavaaal  -  6  THEN  SHELL  "thraabyo .axa" 

IF  aavaaal  -  7  THEN  SHELL  "thraabyv.axa" 

VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSOB  diaplay_atatus  box 

COSOB  Print  tltlajDar 

RETORN 

contraat : 
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row  *  2:  column  *  21:  widthl  >  29:  depth  >  9:  fore  >  15:  beak  *  1 
CALL  box (row,  ooluan,  widthl,  depth,  fore,  baok) 

COLOR  7,  0:  LOCATE  row  +  1,  ooluan  4  1:  PRINT  'Extract  Image':  eeleotl  ■  row  +  1 
COLOR  fore,  beak:  LOCATE  row  4  2,  ooluan  4  1:  PRINT  'Square  Normalisation' 

COLOR  fore,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  'Cube  Normalisation' 

COLOR  fore,  beak:  LOCATE  row  4  4,  column  4  1:  PRINT  'Square  Root  Normalisation' 

COLOR  fore,  back:  LOCATE  row  4  5,  column  4  1:  PRINT  'Cube  Root  Normalisation' 

COLOR  fore,  back:  LOCATE  row  4  6,  column  4-  1:  PRINT  'Inverse  Normalisation* 

COLOR  fore,  back:  LOCATE  row  4  7,  ooluan  4  1:  PRINT  'Invert' 

repsin:  a$  -  INKEYS 

IF  a$  >  THEN  GOTO  repmn 

IF  ASC (LEFTS (a$,  1))  >27  AND  ASC (RIGHTS (aS,  1))  >27  THEN  GOSUB  clear_box:  RE- 
TORN 

IF  (aS  -  CHR$ (13) )  THEN  GOTO  labelmn 
GOSUB  std_box_atuff 
GOTO  repmn 
labelmn : 

saveael  >  selectl 


repsin : 
IF  aS 


hl$  -  f$ 

entmn:  row  >  11:  colusin  >  5:  widthl  >  45:  depth  >  6:  fore  >  15:  back  >  1 
VIEW  PRINT  2  TO  18 

CALL  box(row,  column,  widthl,  depth,  fore,  back) 

COLOR  7,  0:  LOCATE  row  4  1,  column  4  1:  PRINT  'Save  As...';  :  selectl  -  row  4  1 

COLOR  fore,  back:  LOCATE  row  4  2,  column  4  1:  PRINT  'Width*';  xdim 

COLOR  fore,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  'Height*';  ydim 

COLOR  fore,  back:  LOCATE  row  4  4,  ooluan  4  1:  PRINT  'Input  Filename  >  hlS 

repmo :  a$  >  INKEYS 

IF  a$  -  '*  THEN  GOTO  repmo: 

IF  ASC (LEFTS (aS,  1) )  -  27  AND  ASC (RIGHTS (aS,  1))  -  27  THEN  GOSUB  ent45:  GOSUB 
alear_box :  RETURN 

IF  (selectl  -  (row  4  1))  AND  (a$  >  CARS (13))  THEN  GOSUB  morp:  GOSUB  ent45: 

GOSUB  clear_box:  RETURN 

IF  (selectl  <>  (row  4  1))  AND  (a$  -  CHR$(13))  THEN  GOSUB  q25 :  GOTO  entmn 
GOSUB  std_box_stuff 
GOTO  repmo 


ent45:  row  >  2:  column  >  5:  widthl  >  45:  depth  >  16:  fore  •  15:  back  >  1 
RETURN 


REM  'Load  up  Tfile  and  Shell  dilate 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  >  19:  oolumny  >  1:  widthly  >  79:  deptby  •  5:  forey  >  15:  baoky  >  4 
CALL  box  (rowy,  colusiny,  widthly,  depthy,  forey,  backy) 

LOCATE  20,  2 

IF  aelectl  -  (row  4  2)  THEN  INPUT  'Type  Width';  xdim 

IF  selectl  -  (row  4  3)  THEN  INPUT  'Type  Height';  ydim 

IF  aelectl  >  (row  4  4)  THEN  INPUT  'Type  Input  Filename  ";  hl$ 

GOSUB  display  status_box 
RETURN 


morp: 

REM  'Load  up  Tfile  and  Shell  to  DCT.BXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rows  >  19:  columns  >  1:  widthls  ■  79:  depths  >  5:  fores  >  15:  backs  «  4 
CALL  box(rows,  columns,  widthls,  depths,  fores,  backs) 

LOCATE  20,  2:  INPUT  'Type  Filename  to  Save  h2$ 

IF  h2$  >  THEN  row  >  7:  column  *  46:  widthl  >  22:  depth  >  7:  fore  >  15:  back 
>  1:  GOSUB  clear  box 

IF  h2$  -  '*  THEN  GOSUB  display  statue  box:  RETURN 

COLOR  7,  0 

CLS 
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OPEN  "tfila'  FOR  OUTPUT  AS  #1 

PRINT  #1,  dmoda  +  1 

PRINT  *1,  xdim 

PRINT  #1,  ydim 

PRINT  *1,  hlS 

PRINT  *1,  h2$ 

CLOSE  #1 


IP  UT*i*l  -  3  THEN  SE 
IP  aavaaal  -  4  THEN  SE 
IP  aavaaal  «  S  THEN  SE 
IF  aavaaal  -  £  THEN  SE 
IP  aavaaal  -  7  THEN  SE 
IP  aavaaal  -  8  THEN  SE 
IP  aavaaal  -  9  THEN  SE 
VXBN  PRINT:  COLOR  7,  0 
GOSUB  Print  titla_bar 
RETURN 


■  3  THEN  SHELL  "axtract .axa" 

■  4  THEN  SHELL  'aquarah .axa' 

»  S  THEN  SHELL  "cubah.axa" 

•  6  THEN  SHELL  "aqrth .axa' 

■  7  THEN  SHELL  "cubarth .axa' 

•  8  THEN  SHELL  "invh.axa' 

■  9  THEN  SHELL  "ravh.axa" 

COLOR  7,  0:  CLS  :  GOSUB  diaplay_atatua_box 


Peuriar : 

SVD$  -  ■“DPT" 

hl$  -  f  $ 

ant24:  row  «  7:  column  -  19:  widthl  «  31:  dapth  ■  6:  fora  »  IS:  back  -  1 
VIEW  PRINT  2  TO  18 

CALL  box (row,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  "Input  and  Output  Pilaa  :  aa- 

lactl  «=  row  +  1 

COLOR  fora,  back:  LOCATE  row  +  2,  column  +  1:  PRINT  "Fouriar  SVD$;  •  <RET>” 
REM  COLOR  fora,  back:  LOCATE  row  +  3,  column  +  1:  PRINT  "Input  Filanama  -  ';  hl$ 
COLOR  fora,  back:  LOCATE  row  -f  3,  column  +  1:  PRINT  *Typa  X-Dimanaion  “  " ;  xdim 
COLOR  fora,  back:  LOCATE  row  +  4,  column  +  1:  PRINT  "Typa  Y-Dimanaion  ■  ';  ydim 
rap24 :  a$  -  INKEY$ 

IP  a$  «  "'  THEN  GOTO  rap24 : 

IP  ASC (LEFTS (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -  27  THEN  GOSUB  claar_box:  RE¬ 
TURN 

IP  (aalactl  -  (row  +1))  AND  <a$  -  CHR$ (13) )  THEN  GOSUB  fouriarl:  GOSUB  ant44: 
GOSUB  claar_box:  RETURN 

IP  (aalactl  <>  (row  +  1))  AND  (a$  -  CHR$(13))  THEN  GOSUB  q24:  GOTO  ant24 
GOSUB  atd_box_atuff 
GOTO  rap24 

ant44:  row  “  7:  column  *  19:  widthl  -  31:  dapth  “  6:  fora  »  15:  back  »  1 
RETURN 


27  THEN  GOSUB  claar  box: 


REM  "Load  up  Tfila  and  Shall  dilata 

IP  (aalactl  -  (row  +  2))  AND  (SVD$  -  "DPT')  THEN  SVD$  -  "Invaraa  DPT' 
IP  (aalactl  -  (row  +  2))  AND  (SVD$  -  "Invaraa  DPT')  THEN  SVD$  «  "PPT” 
IP  (aalactl  *  (row  +  2))  AND  (SVD$  »  "PET" )  THEN  SVD$  »  "Invaraa  PPT” 


IP  (aalactl  -  (row  +  2))  AND  (SVD$ 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  “  19:  columny  ”  1:  widthly  ” 


"Invaraa  PPT')  THEN  SVD$  -  "DPT' 


rowy  «  19:  columny  «  1:  widthly  “  79:  dapthy  “  5:  foray  »  15:  backy  • 
CALL  box (rowy,  columny,  widthly,  dapthy,  foray,  backy) 
tr:  LOCATE  20,  2 

IF  aalactl  <■  (row  +  3)  THEN  INPUT  "Typa  X-Dimanaion  of  Filanama  that 
tha  tranaform  coafficianta  ';  xdim 

IF  (SVD$  -  "DFT")  OR  (SVD$  -  "Invaraa  DPT')  THEN  GOTO  atk 
IP  (aalactl  -  (row  +  3))  AND  INT  (LOG  (xdim)  /  LOG  (2))  <>  (LOG  (xdim)  / 
THEN  BEEP:  LOCATE  21,  2:  PRINT  "Muat  bo  powar  of  2":  GOTO  tr 
atk:  IP  (aalactl  “  (row  +  4))  THEN  INPUT  "Typa  Y-Dimanaion  of  Filanax 
taina  tha  tranaform  eoaffioionta  ';  ydim 

IP  (SVD8  -  "DPT')  OR  (SVD$  -  "Invaraa  DPT")  THEN  GOTO  atl 
IP  (aalactl  -  (row  +  4))  AND  INT  (LOG  (ydim)  /  LOG  (2))  <>  (LOG  (ydim)  / 
THEN  BEEP:  PRINT  "Muat  ba  powar  of  2":  GOTO  atk 
atl:  GOSUB  diaplay_atatua_box 


:  RETURN 
:  RETURN 
:  RETURN 
:  RETURN 


containa 


LOG(2)) 


that  aon- 


LOG (2) ) 
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f ourierl : 

REM  "Load  up  Tfi la  and  Shall  to  OCT. EXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rows  «  19:  columns  “  1:  widthls  «  79:  depths  »  5:  forez  “  15:  backs  “  4 
CALL  box (rows,  columns,  widthls,  depths,  fores,  backs) 

IF  (SVD$  -  ”DFT")  THEN  LOCATE  20,  2:  INPUT  "Type  Input  Filename  ';  hl$ 

IF  (SVD$  »  "FFT")  THEN  LOCATE  20,  2:  INPUT  'Type  Input  Filename  hl$ 

IF  (SVD$  -  'Inverse  OFT")  THEN  LOCATE  20,  2:  INPUT  'Type  Real  Input  Filename  "; 
hi* 

IF  (SVD*  -  'Inverse  FFT")  THEN  LOCATE  20,  2:  INPUT  'Type  Real  Input  Filename  "; 
hl$ 

IF  hl$  “  '"  THEN  row  «  7:  column  ■  46:  widthl  «  22:  depth  “  7:  fore  “  15:  beak 
-  1:  GOSUB  clear_box 

IF  hi*  -  '"  THEN_ GOSUB  display_status_box:  RETURN 

IF  (SVD*  ■  'OFT")  THEN  LOCATE  21,  2:  INPUT  'Type  Real  Output  Filename  ";  h2* 

IF  (SVD*  -  'FFT")  THEN  LOCATE  21,  2:  INPUT  'Type  Real  Output  Filename  ";  h2$ 

IF  (SVD$  «  'Inverse  OFT'*)  THEN  LOCATE  21,  2:  INPUT  'Type  Imaginary  Input 
Filename  ";  h2$ 

IF  (SVD*  -  'Inverse  FFT")  THEN  LOCATE  21,  2:  INPUT  'Type  Imaginary  Input 
Filename  ";  h2$ 

IF  h2$  -  '"  THEN  row  -  7:  column  •  46:  widthl  “  22:  depth  ■  7:  fore  m  15:  back 
“  1:  GOSUB  clear  box 

IF  h2$  -  '"  THEN  GOSUB  display  status_box:  RETURN 

IF  (SVD*  -  'DFT")  THEN  LOCATE  22,  2:  INPUT  'Type  Imaginary  Output  Filename 
h3$ 

IF  (SVD$  -  'FFT')  THEN  LOCATE  22,  2:  INPUT  'Type  Imaginary  Output  Filename 
h3$ 

IF  (SVD$  -  "Inverse  DFT")  THEN  LOCATE  22,  2:  INPUT  'Type  Output  Filename  h3$ 

IF  (SVD$  -  'Inverse  FFT")  THEN  LOCATE  22,  2:  INPUT  'Type  Output  Filename  h3$ 

IF  h3$  “  '"  THEN  row  -  7:  column  «  46:  widthl  «  22:  depth  «  7:  fore  ■  15:  back 
•  1:  GOSUB  clear_box 

IF  b3$  -  '"  THEN  GOSUB  display  status_box:  RETURN 

COLOR  7,  0 

CLS 


OPEN  'tfile"  FOR  OUTPUT  AS  #1 

PRINT  #1,  dmode  +  1 

PRINT  #1,  xdim 

PRINT  *1,  ydim 

PRINT  «1,  hl$ 

PRINT  *1,  h2$ 

PRINT  #1,  h3$ 

CLOSE  81 

IF  SVD$  »  'DFT'  THEN  SHELL  'dft.exe' 

IF  SVD$  -  'Inverse  DFT'  THEN  SHELL  'invdft.exe' 

IF  SVD$  m  -FFT"  THEN  SHELL  "fft.exe" 

IF  SVDS  -  'Inverse  FFT"  THEN  SHELL  'invfft.exe' 

VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  display_status_box 

GOSUB  Frint_title  bar 

RETURN 

SVD: 

SVD$  »  -SVD" 
hl$  -  f$ 

ent23:  row  »  7:  column  »=  19:  widthl  «  31:  depth  *  6:  fore  «  15:  back  “  1 
VIEW  PRINT  2  TO  18 

CALL  box (row,  column,  widthl,  depth,  fore,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  'Input  and  Output  Files...";  :  se¬ 
lect  1  “  row  +  1 

COLOR  fore,  back:  LOCATE  row  +  2,  column  +  1:  PRINT  'SVD  SVD$;  '  <RET>" 

COLOR  fore,  back:  LOCATE  row  +  3,  column  +  1:  PRINT  'Type  X-Dimension  ■  ";  xdim 

COLOR  fore,  back:  LOCATE  row  -t  4,  column  4-  1:  PRINT  'Type  Y-Dimension  «  ";  ydim 
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rap23 :  a$  -  INXEY$ 

IF  *$  -  •'  THEN  GOTO  rap23  : 

IF  ASC(LBFT$ (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  *  27  THEN  GOStJB  claarjoox:  RE¬ 
TURN 

IF  (aalactl  -  (row  +  1))  AND  (a$  -  CHR$(13))  THEN  GOSDB  »vdl :  GOSUB  ant43 : 

GOSUB  alaar_box:  RETURN 

IF  (aalactl  <>  (row  +  1))  AND  (a$  -  CHR$(13))  THEN  GOSUB  q23 :  GOTO  «nt23 
GOSUB  atd_box_atu£f 
GOTO  r«p23 

•nt43:  row  •  7:  column  »  19:  wldtbl  “  31:  daptb  «  8:  fora  -  15:  back  “  1 
RETURN 


REM  "Load  up  Tfila  and  Shall  dilata 
IF  (aalaotl  -  (row  +  2))  AND  (SVD$  - 
IF  (aalactl  -  (row  +  2))  AND  (SVD$  - 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  ■  19:  columny  «  1:  wldtbly  ■  79 


"SVD")  THEN  SVD$  -  'Invaraa  SVD" :  RETURN 
"Invaraa  SVD")  THEN  SVD$  -  'SVD':  RETURN 


rowy  a  19:  columny  “  1:  wldtbly  «  79:  dapthy  “  5:  foray  “  15:  baoky  “  4 
CALL  box (rowy,  columny,  wldtbly,  dapthy,  foray,  backy) 

LOCATE  20,  2 

IF  aalactl  «  (row  +  3)  THEN  INPUT  'Typa  X-Dlmanalon  of  Fllanama  that  containa 
tba  tranaform  aoafficianta  ';  xdim 

IF  (aalactl  «  (row  +  4))  THEN  INPUT  "Typa  Y-Dlmanaion  of  Fllanama  that  containa 
tha  tr ana form  coafflcianta  ';  ydlm 
GOSUB  dlaplay  atatua_box 
RETURN 


avdl : 

REM  "Load  up  Tfila  and  Shall  to  DCT.EXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowz  -  19:  column  «  1:  widthlz  -  79:  dapthz  *  5:  foraz  **  15:  backz  ■  4 
CALL  box (rowz,  columnz,  widthlz,  dapthz,  foraz,  backz) 

IF  (SVD$  <>  'SVD')  THEN  GOTO  xi 

LOCATE  20,  2:  INPUT  ”Typa  Input  Fllanama  ';  hl$ 

IF  hl$  «  "'  THEN  row  -  7:  column  -  46:  wldtbl  ■  22:  dapth  “  7:  fora  »  15:  back 
*■  1:  GOSUB  claar_box 

IF  hl$  -  '"  THEN  GOSUB  diaplay_atatua  box:  RETURN 
LOCATE  21,  2:  INPUT  'Typa  U  Fllanama  to  Sava  ” :  h2$ 

IF  h2$  m  *”  THEN  row  «  7:  column  •  46:  widthl  •  22:  dapth  “  7:  fora  m  15:  baak 
»  1:  GOSUB  alaar_box 

IF  h2$  -  '”  THEN  GOSUB  display_atatua_box:  RETURN 
LOCATE  22,  2:  INPUT  'Typa  V  Fllanama  to  Sava  h3$ 

IF  h3$  m  '”  THEN  row  m  7:  column  m  46:  widthl  m  22:  daptb  »  7:  fora  “  15:  back 
*  1:  GOSUB  claarjbox 

IF  h3$  -  '"  THEN  GOSUB  diaplay_statua_box:  RETURN 
GOTO  xj 


LOCATE  20,  2:  INPUT  "Typa  U  Fllanama  ';  hl$ 

IF  hl$  •  *"  THEN  row  “  7:  column  *  46:  widthl  “  22:  daptb 
»  1 :  GOSUB  claar_box 

IF  hl$  -  "'  THEN  GOSUB  diaplay_atatua_box:  RETURN 
LOCATE  21,  2:  INPUT  'Typa  V  Fllanama';  h2$ 

IF  h2$  “  •*  THEN  row  «  7:  column  ■  46:  widthl  ■  22:  dapth 
•  1:  GOSUB  claar_box 

IF  h2$  -  '"  THEN  GOSUB  display_atatua_box:  RETURN 


22:  daptb  «  7:  fora  «  15:  baok 


7 :  fora 


xj: 

COLOR  7,  0 
CLS 

OPEN  'tfila'  FOR  OUTPUT  AS  «1 
PRINT  *1,  dmoda  +  1 
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PRINT  #1.  xdim 
PRINT  #1,  ydim 
PRINT  #1,  hl$ 

PRINT  #1,  h2$ 

PRINT  II.  b3$ 

CLOSE  *1 

IF  SVD$  -  "SVD"  THEN  SHELL  "SVD .axa" 

IF  SVD$  -  "Invar**  SVD*  THEN  SHELL  "invavd .axe* 

VIEN  PRINT:  COLOR  7,  0:  CLS  :  COSOB  di*play_*tatua_box 

GOSOB  Print_titl*_b»r 

RETURN 


*dit_dft : 

*nt22 :  row  «  7:  oolumn  ■  35:  widthl  «  31:  daptb  -  7:  fora  “  15:  book  -  1 
VIEN  PRINT  2  TO  18 

CALL  box (row,  column,  widtbl,  daptb,  fora,  back) 


COLOR 

7,  0: 

LOCATE  row  4 

1,  column  4  1: 

PRINT 

"Real  Input  File  - 

m  a 

t 

bl$ : 

aalactl  •  row  4  1 
COLOR  fora,  back: 

LOCATE 

row 

+ 

2, 

column 

+ 

1: 

PRINT 

"Imag  Input  File  - 

*  a 

h2$ 

COLOR 

fora. 

back: 

LOCATE 

row 

+ 

3, 

column 

+ 

1: 

PRINT 

"Type  X-Dimanaion  * 

M  a 

9 

xdim 

COLOR 

fora. 

back: 

LOCATE 

row 

+ 

4, 

column 

+ 

1: 

PRINT 

"Typ*  Y-Dimenaion  - 

99  a 

ydim 

COLOR 

fora. 

back: 

LOCATE 

row 

+ 

5. 

column 

+ 

1: 

PRINT 

"DO  IT 

99 

r*p22:  *$  -  INKEY$ 

IF  a$  -  "*  THEN  GOTO  rap22: 

IF  ASC (LEFT$ (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -  27  THEN  GOSOB  claar_box:  RE¬ 
TURN 

IF  (salactl  <>  (row  4  5))  AND  (a$  ■  CHR$ (13) )  THEN  GOSUB  q22 :  GOTO  ant22 
IF  (aalactl  -  (row  4  5))  AND  (*$  -  CHR$(13))  THEN  GOSUB  adltdft:  GOSUB  ent42: 
GOSUB  clear_box:  RETURN 
GOSOB  *td_box_*tuff 
GOTO  r*p22 

ant42:  row  ■  7:  column  «  4:  widtbl  *  31:  daptb  *  8:  fora  “  15:  baak  *  1 
RETURN 


q22: 

REM  "Load  up  Tfila  and  Shall  dilata 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  -  19:  columny  -  1:  widtbly  ■>  79:  daptby  m  5:  foray  m  15:  backy  m  4 
CALL  box (rowy,  columny,  widtbly,  daptby,  foray,  baaky) 

LOCATE  20,  2 

IF  aalactl  •  (row  4  1)  THEN  INPUT  "Real  Input  Filename  -  *;  bl$ 

IF  aalactl  -  (row  4  2)  THEN  INPUT  "Imag  Input  Filanama  *;  h2$ 

IF  aalactl  «  (row  4  3)  THEN  INPUT  "Type  X-Dimanaion  of  Filanama  that  contain* 

tba  tranaform  coafficianta  *;  xdim 

IF  (aalactl  “  (row  4-  4))  THEN  INPUT  "Typ*  Y-Dimanaion  of  Filanama  that  contain* 
tb*  tranaform  coafficianta  *;  ydim 
GOSUB  diaplay_atatua  box 
RETURN 

adltdft : 

REM  "Load  up  Tfila  and  Shell  to  DCT.EXE 
VIEW  PRINT 
COLOR  7,  0 
CLS 

OPEN  "tfila*  FOR  OUTPUT  AS  #1 

PRINT  #1,  dmoda  4  1 

PRINT  «1,  xdim 

PRINT  #1,  ydim 

PRINT  #1,  hl$ 

PRINT  #1,  h2$ 
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CLOSE  «1 

SHELL  "editdft .axe' 

VIEW  PRINT :  COLOR  7,  0:  CLS  :  00 SOB  diaplay_status_box 

OOSOB  Print_title_bar 

RETURN 

dilating: 

row  «  7:  column  —  39:  widthl  «  11:  depth  »  6:  fora  «•  15:  back  *  1 
CELL  box (row,  column,  widthl,  daptb,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  "Dilating'':  aalactl  -  row  +  1 

COLOR  fora,  back:  LOCATE  row  +  2,  column  +  1:  PRINT  "Eroding" 

COLOR  fora,  back:  LOCATE  row  +  3,  column  +  1:  PRINT  "Opaning" 

COLOR  fora,  baak:  LOCATE  row  +  4,  column  +  1:  PRINT  "Cloaing" 

rapqt :  a$  -  INKEYS 

IF  a$  -  *"  THEN  GOTO  rapqt 

IF  ASC (LEFTS ( a$ ,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -  27  THEM  GOSUB  claar_box:  RE¬ 
TURN 

IF  (a$  -  CHR$ (13) )  THEN  GOTO  labalpx 
GOSUB  atd_box_stuff 
GOTO  rapqt 
labalpx: 

aavasal  -  aalactl 

blocksize  -  8:  thrash  ■  0:  zonal  *  8:  k$  ■  "DON' T_STRIP_ZBROBS" 
maskwidth  •  3 :  maskhaight  »  3 
hlS  -  f$ 

ant21:  row  —  7:  column  «  19:  widthl  —  31:  dapth  «  8:  fora  •  15:  back  —  1 
VIEW  PRINT  2  TO  18 

CALL  box(row,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  "Sava  Aa...";  :  aalactl  •  row  +  1 
COLOR  fora,  back:  LOCATE  row  +  2,  column  +  1:  PRINT  "Masksiza  width-";  maskwidth 

COLOR  fora,  back:  LOCATE  row  +  3,  column  +  1:  PRINT  "Masksiza  height-*; 

maskhaight 

COLOR  fora,  back:  LOCATE  row  +  4,  column  +  1:  PRINT  "Input  Filename  -  *;  hl$ 

COLOR  fora,  back:  LOCATE  row  +  5,  column  +  1:  PRINT  "Type  X-Dimenaion  -  xdim 

COLOR  fora,  back:  LOCATE  row  +  6,  column  +  1:  PRINT  "Type  Y-Dimanaion  -  *;  ydim 

rep21:  a$  -  INKEYS 
IF  ($  ■  **  THEN  GOTO  rep21: 

IF  ASC (LEFTS (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -  27  THEN  GOSUB  clear_box:  RE¬ 
TURN 

IF  (aalactl  -  (row  +  1))  AND  (a$  -  CHR$(13))  THEN  GOSUB  dilate:  GOSUB  ent41: 
GOSUB  claar_box:  RETURN 

IF  (selectl~<>  (row  +  1))  AND  (a$  •  CHRS (13) )  THEN  GOSUB  q21 :  GOTO  ant21 
GOSUB  std_box_stuff 
GOTO  rap21 

ent41:  row  «  7:  column  •  19:  widthl  “  31:  dapth  -  8:  fora  -  15:  back  -  1 
RETURN 


q21: 

REM  "Load  up  Tfila  and  Shall  dilate 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  -  19:  columny  -  1:  widthly  -  79:  dapthy  -  5:  foray  -  15:  backy  -  4 
CALL  box (rowy,  columny,  widthly,  dapthy,  foray,  backy) 

LOCATE  20,  2 

IF  aalactl  -  (row  4-  2)  THEN  INPUT  "Type  Masksiza  Width  *;  maskwidth 
IF  aalactl  -  (row  +  3)  THEN  INPUT  "Type  Masksiza  Height  maskhaight 

IF  aalactl  *  (row  +  4)  THEN  INPUT  "Type  Input  Filename  hl$ 

IF  aalactl  «  (row  +  5)  THEN  INPUT  "Type  X-Dimenaion  of  Filename  that  contains 
the  transform  coefficients  xdim 

IF  (aalactl  “  (row  +  6))  THEN  INPUT  "Type  Y-Dimanaion  of  Filename  that  contains 
the  transform  coefficients  ydim 
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IF  ((maskwidth  MOD  2)  -  0)  THEN  maskwidth  -  maskwidth  +  1 
IF  ((maskheight  MOD  2)  -  0)  THIN  maekhaight  -  maskheight  +  I 
GOSUB  diaplay_etatua_box 
RETURN 

di lata : 

REM  "Load  up  Tfile  and  Shall  to  DCT  EXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rows  »  19:  columns  -  1:  widtbls  m  79:  dapthx  “  5:  foraz  -  15:  backs  “  4 
CALL  box(rowz,  columns,  widtbls,  daptbs,  foraz,  backs) 

LOCATE  20,  2:  INPUT  "Type  Fllanama  to  Sava  b2$ 

IF  b2$  ”  ""  THEN  row  "  7:  column  «  46:  widtbl  -  22:  daptb  «  7:  fora  “  15:  back 
•  1:  GOSUB  claar_box 

IF  h2$  -  ""  THEN  GOSUB  display  status_box:  RETURN 

COLOR  7,  0 

CLS 

OPEN  "tfile"  FOR  OUTPUT  AS  #1 

PRINT  #1,  dmoda  +  1 

PRINT  *1,  xdim 

PRINT  #1,  ydim 

PRINT  #1,  hl$ 

PRINT  #1,  h2$ 

PRINT  *1,  maskwidth 
PRINT  #1,  maskhaight 
CLOSE  #1 

IF  aavasal  -  8  THEN  SHELL  "dil.exa" 

IF  aavasal  “  9  THEN  SHELL  "erode .axe" 

IF  aavasal  -  10  THEN  SHELL  "opan.exe" 

IF  aavasal  «  11  THEN  SHELL  "close .axe" 


VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  display_status_box 

GOSUB  Print_titla_bar 

RETURN 


rowx  «  7:  columnx  »  46:  widtblx  «  22:  dapthx  •  7:  forax 
GOSUB  daar_box: 

VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  display  statusjsox 

GOSUB  Print_t.it  le_bar 

RETURN 


15 :  backx 


adga: 

row  ■  7:  column  ■  36:  widthl  -  14:  daptb  -  4:  fora  -  15:  back  »  1 
CALL  box (row,  column,  widtbl,  depth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  "First  Order":  salactl  “  row  +  1 
COLOR  fora,  back:  LOCATE  row  4-  2,  column  +  1:  PRINT  "Second  Order" 
rapst :  aS  -  INKBY$ 

IF  a$  -  ""  THEN  GOTO  rapst 

IF  ASC (LEFT$ (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -  27  THEN  GOSUB  clear Jbox:  RE¬ 
TURN 

IF  (aS  -  CHR$ (13) )  THEN  GOTO  labelpu 
GOSUB  std_box_stuf f 
GOTO  rapst 
labelpu : 

IF  salactl  -  8  THEN  GOSUB  entl3:  RETURN 
IF  salactl  -  9  THEN  GOSUB  adgal:  RETURN 


ent!3:  row  “  2:  column  •  31:  widtbl  “  19:  daptb  •  16:  fora  “  15:  back 
VIEW  PRINT  2  TO  18 

CALL  box (row,  column,  widtbl,  daptb,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  "Pixel  Dif  Row  "; 


salactl  ■*  row 


COLOR  fora,  back:  LOCATE  row  +  2,  column  +  1:  PRINT  "Pixel  Dif  Col' 

COLOR  fora,  back:  LOCATE  row  +  3,  column  +  1:  PRINT  "Separated  Dif  Row" 

COLOR  fora,  back:  LOCATE  row  +  4,  column  +  1:  PRINT  "Separated  Dif  Col' 
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COLOR  fora,  back:  LOCATE  row  +  5,  column  +  1:  PRINT  'Sobol  Row 

COLOR  Toro,  back:  LOCATE  row  +  6,  column  +  1:  PRINT  'Sobol  Column' 

COLOR  fore,  back:  LOCATE  row  +  7.  column  +  1:  PRINT  'Roberta  Row  * 

COLOR  Toro,  back:  LOCATE  row  +  8,  column  +  1:  PRINT  'Roberta  Column' 

COLOR  Toro,  back:  LOCATE  row  +  9,  column  +  1:  PRINT  'Prewitt  Row 

COLOR  Tore,  back:  LOCATE  row  +  10,  column  +  1:  PRINT  'Prewitt  Column' 

column  4-  1:  PRINT  'Frei-Chen  Row' 


COLOR  fore,  back:  LOCATE  row  +  11, 


COLOR  fore,  back:  LOCATE  row  +  12,  column  +  1:  PRINT  'Frol -Chen  Column' 

COLOR  fore,  back:  LOCATE  row  +  13,  column  +  1:  PRINT  'Nevatia-Babu  0' 

COLOR  fore,  back:  LOCATE  row  +  14,  column  +  1:  PRINT  'Nevatla-Babu  90” 

COSOB  aecond2_box 
fin  >  0 

repa:  a$  -  INKEYS 

IF  a$  -  *"  THEN  GOTO  repa 

oldael  >  aelectl 

fin  >  0 

biaaflag  >  1 

IF  ASC (LEFTS (a$,  1))  >27  AND  ASC (RIGHTS (a$,  1))  >27  THEN  GOSUB  entl4:  GOSUB 
clear  box:  RETURN 

IF  (a$  •  CHR$ ( 13 ) )  THEN  GOSUB  convol?  salectl  >  oldael:  IF  fin  >  1  THEN  RETURN 
GOSUB  atd_box_etuff 
GOSUB  aecond2_box 
GOTO  repa 

entl4:  row  >  2:  column  >  1:  widthl  >  SO:  depth  >  16:  fora  >  15:  back  >  1 
RETURN 


eecond2_box 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 
IF  aelectl 


3  THEN  hl$  » 

4  THEN  hl$  > 

5  THEN  hl$  • 

6  THEN  hl$  ■ 

7  THEN  hlS  * 

8  THEN  hl$  « 

9  THEN  hl$  • 

10  THEN  hl$ 

11  THEN  hl$ 

12  THEN  hl$ 

13  THEN  hlS 

14  THEN  hl$ 

15  THEN  hl$ 


*pdr" 

'pdc" 

'adr' 

«edc' 

'aobelr' 

'aobelc" 

“robertar" 

■  'robertao' 

■  'prewlttr" 

■  'prewitte' 

.  -fer' 

■  'fee" 

•  'nevaO” 

*  'neva90” 


IF  aelectl  >  16  THEN  hl$  «  'neva90n 
CALL  box (6,  1,  30,  11,  0,  0) 

OPEN  bl$  FOR  INPUT  AS  #1 
INPUT  #1,  n 

rown  >  6:  columnn  >  27  -  5  *  n:  widthn  ■  31  -  columnn:  deptbn 
CALL  box (rown,  columnn,  widthn,  depthn,  15,  1) 
k  »  n 

FOR  i  >  1  TO  n 
FOR  j  -  1  TO  k 

INPUT  #1,  a:  LOCATE  6  +  1,  columnn  -  4  +  5  *  j :  PRINT  a 

NEXT  J 

NEXT  1 

CLOSE  #1 

RETURN 


noiaeclean: 

entll:  row  >  7:  column  >  31:  widthl  «  19:  depth  >  5:  fore  >  15:  ba 
VIEW  PRINT  2  TO  18 

CALL  box(row,  column,  widthl,  depth,  fore,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  +  1:  PRINT  'Noiae  Maak  1”;  :  ae 
1 

COLOR  fore,  back:  LOCATE  row  +  2,  column  +  1:  PRINT  'Noiae  Maak  2” 
COLOR  fore,  back:  LOCATE  row  +  3,  column  +  1:  PRINT  'Noiae  Maak  3” 
GOSUB  aecondl  box 


15:  back  “  1 


aelectl  >  row  + 
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fin  ■  0 

rapt:  a$  -  INXBY4 

IF  a$  ■  THIN  GOTO  rapt 

oldaal  «  aalactl 

fin  “  0 

biaaflag  “  0 

IF  ASC (LEFT$ (a$,  1))  -27  AND  ASC (RIGHT* (a$,  1))  -  27  THEN  GOSUB  anti2:  GOSUB 
claar  box:  RETURN 

IF  (a?  ■  CHR$ (13) )  THEN  GOSDB  convoll:  aalactl  ■  oldaal:  IF  fin  -  1  THEN  RETURN 
GOSUB  atd_box_atuff 
COSUB  aeoondl_box 
GOTO  rapt 

antl2 :  row  -  6:  column  —  1:  widthl  -  SO:  dapth  *  11:  fora  —  IS:  back  —  1 
RETURN 

convolution: 

ant9:  row  —  7:  column  “  31:  widthl  —  19:  dapth  —  7:  fora  —  15:  back  —  1 
VIEW  PRINT  2  TO  18 

CALL  box (row,  column,  widthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  +  1,  column  4  1:  PRINT  'Criapening  Maak  1";  :  aalactl  - 
row  +  1 

COLOR  fore,  back:  LOCATE  row  +  2,  column  +  1:  PRINT  *Cri opening  Maak  2" 

COLOR  fora,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  “Criapening  Maak  3” 

COLOR  fora,  back:  LOCATE  row  4  4,  column  4  1:  PRINT  'Criapening  Maak  4* 

COLOR  fora,  back:  LOCATE  row  4  5,  column  4  1:  PRINT  'Criapening  Maak  5* 

GOSUB  aecond_box 
fin  -  0 

repv:  a$  «=  INKEY  $ 

IF  a(  «  "  THEN  GOTO  rapv 
oldaal  -  aalactl 
fin  -  0 
biaaflag  »  0 

IF  ASC (LEFTS (a$,  1))  -  27  AND  ASC (RIGHTS (a$,  1))  -  27  THEN  GOSUB  antlO:  COSUB 
claar  box:  RETURN 

IF  (a$  *  CBR$ (13) )  THEN  GOSUB  convoll:  aalactl  -  oldaal:  IF  fin  -  1  THEN  RETURN 
GOSUB  atd_box_atuff 
GOSUB  aecond_box 
GOTO  rapv 

aecond_box : 

IF  aalactl  -  8  THEN  hl$  «  'criapl" 

IF  aalactl  -  9  THEN  hl$  -  'criap2n 
IF  aalactl  «  10  THEN  hl$  -  'criap3“ 

IF  aalactl  -  11  THEN  hl$  -  'criap4" 

IF  aalactl  -  12  THEN  hl$  -  'criap5" 

OPEN  hl$  FOR  INPUT  AS  tl 
CALL  box (6,  1,  30,  11,  0,  0) 

INPUT  #1,  n 

rown  -  6:  columnn  -  27  -  5  *  n:  widthn  *  31  -  columnn:  dapthn  -  n  4  2 
CALL  box(rown,  columnn,  widthn,  dapthn,  15,  1) 
k  *  n 

FOR  i  -  1  TO  n 
FOR  J  -  1  TO  k 

INPUT  #1,  a:  LOCATE  6  4  i,  columnn  -  4  4  5  *  j:  PRINT  a 

NEXT  J 

NEXT  i 

CLOSE  *1 

RETURN 

aacondl  box: 

IF  aalactl  -  8  THEN  bl$  -  “noiael" 

IF  aalactl  -  9  THEN  hl$  -  'nolae2" 

IF  aalactl  -  10  THEN  hl$  -  'noiae3" 

CALL  box(6,  1,  30,  11,  0,  0) 
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OPEN  bl$  FOR  INPOT  AS  #1 
INPOT  #1,  n 

rown  “  6:  ooluann  *  27  -  5  *  n:  wldthn  “31  -  column:  dapthn  «  n  +  2 
CALL  box (rown,  ooluann,  wldthn,  dapthn,  IS,  1) 
k  “  n 

FOR  i  -  1  TO  n 
FOR  j  -  1  TO  k 

INPOT  #1,  a:  LOCATE  6+1,  ooluann  -  4  +  5  *  j:  PRINT  a 

NEXT  j 

NEXT  1 

CLOSE  *1 

RETORN 

•ntlO:  row  “  6:  column  -  1:  wldthl  “  50:  dapth  “  11:  Toro  -  15:  back  “  1 
RETORN 


convoll: 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

too*  *  19:  columnx  »  1:  widthlx  *  79:  dopthx  “  5:  forox  “  15:  backx 
CALL  box (rowx,  columnx,  widthlx,  dopthx,  forox,  backx) 

LOCATE  20,  2:  INPOT  "Typo  Filonaao  to  Sava  h$ 

IF  (h$  “  "“)  THEN  GOSOB  display  status  box:  RETORN 
COLOR  7,  0  ~ 

CLS 

OPEN  "tfllo'  FOR  OOTPOT  AS  #1 
PRINT  *1,  dmodo  +  1 
PRINT  #1,  g$ 

PRINT  #1,  f$ 

PRINT  *1,  xdlm 
PRINT  #1,  ydia 
PRINT  #1,  updown 
PRINT  «1,  hoadblta 
PRINT  #1,  h$ 

PRINT  #1,  hl$ 

PRINT  #1,  blasflag  'for  Roy's  modification  to  Mask 

CLOSE  #1 

SHELL  "mask. oxo* 

PRINT  "Typo  any  koy  to  continua  * 

CLS 

GOSOB  Print_titlo_bar 
GOSOB  display_status_box 
fin  “  J 
RETURN 
oonvol2 : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  *  19:  columnx  -  1:  widthlx  *  79:  dopthx  «  5:  forox  *  15:  backx 
CALL  box (rowx,  columnx,  widthlx,  dopthx,  forox,  backx) 

LOCATE  20,  2:  INPOT  "Typo  Filonaao  to  Sava  b$ 

IF  (h$  “  "*)  THEN  GOSOB  display_status  box:  RETORN 
COLOR  7,0  *• 

CLS 

OPEN  "tfilo”  FOR  OOTPOT  AS  #1 
PRINT  #1,  dmodo  +  1 
PRINT  #1,  g$ 

PRINT  #1,  f$ 

PRINT  ftl,  xdia 
PRINT  #1,  ydim 
PRINT  #1,  updown 
PRINT  #1,  hoadbits 
PRINT  *1,  h$ 

PRINT  «1,  hl$ 

PRINT  «1,  biasflag 
CLOSE  #1 
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SHELL  “mask.axa" 

PRINT  “Typa  any  kay  to  oontlnua  " 

CLS 

SOSUB  Print_titla_bar 
GOSUB  display  status_box 
fin  -  1 
RETURN 

' convar : 

'ant5:  row  »  7:  column  «  20:  widtbl  "  12:  dapth  m  6:  fora  •  15:  back  ■  1 
'VIEW  PRINT  2  TO  18 

' CALL  box (row,  column,  widtbl,  daptb,  fora,  back) 

'COLOR  fora,  back:  LOCATE  row,  column  +  4:  PRINT  “PROM" 

‘COLOR  7,  0:  LOCATE  row  4  1,  column  4  1:  PRINT  “8-Bit  BIN":  aalaotl  -  row  4  1 

'COLOR  fora,  back:  LOCATE  row  4  2,  column  4  1:  PRINT  “8-Bit  BMP' 

'COLOR  fora,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  “24-Bit  BIN" 

'COLOR  fora,  back:  LOCATE  row  4  4,  column  4  1:  PRINT  “24-Bit  TIQ" 

'fin  -  0 

'rapa:  a$  -  INKEY $ 

'IF  a$  -  “'  THEN  GOTO  rapa 
' oldaal  -  aalactl 

’IF  ASC (LEFTS (a$,  1))  -  27  AND  ASC (RIGHT$ (a$,  1))  -  27  THEN  GOSOB  ant6:  COSUB 
claar_box:  RETURN 

'IF  (a$  -  CHR$ (13) )  THEN  GOSUB  convarto:  aalactl  -  oldaal:  IF  fin  -  1  THEN  RE¬ 
TURN 

'COSUB  atd_box_atuff 
'GOTO  rapa 

' ant 6 :  row  -  7:  column  »  20:  widtbl  ■  12:  daptb  »  6:  fora  ■  15:  back  -  1 
'  RETURN 

' convarto : 

' ant 7 :  row  -  7:  column  »  32:  widthl  ■  12:  dapth  «  6:  fora  «  15:  back  «  1 
'VIEW  PRINT  2  TO  18 

'CALL  box (row,  column,  widtbl,  daptb,  fora,  back) 

'COLOR  fora,  back:  LOCATE  row,  column  4  5:  PRINT  “TO" 

'COLOR  7,  0:  LOCATE  row  4  1,  column  4  1:  PRINT  “8-Bit  BIN":  aalactl  ■  row  4  1 

'COLOR  fora,  back:  LOCATE  row  4  2,  column  4  1:  PRINT  “8-Bit  BMP" 

'COLOR  fora,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  “24-Bit  BIN' 

'COLOR  fora,  back:  LOCATE  row  4  4,  column  4  1:  PRINT  “24-Bit  TIQ" 

' rapb :  a$  -  INKEY8 

'IF  a$  -  “"  THEN  GOTO  rapb 

'IF  ASC (LEFT$  <a$,  1))  -  27  AND  ASC (RIGHT $ <a$,  1))  -  27  THEN  a$  -  “  " :  COSUB 

claar_box:  GOSUB  ant6:  RETURN 

'IF  (a$  -  CHR$ (13) )  THEN  GOSUB  convartl:  IF  fin  -  1  THEN  RETURN 
'GOSUB  atd_box_atuff 
' GOTO  rapb 

'ant8:  row  “  7:  column  »  32:  widthl  «  12:  daptb  “  6:  fora  “  15:  back  -  1 
'  RETURN 

'convartl: 

'VIEW  PRINT  18  TO  24 
'COLOR  7,  0 

'rowx  «  19:  oolumnx  «  1:  widtblx  -  79:  daptbx  «  5:  forax  -  15:  baokx  »  4 
'CALL  box (rowx,  columnx,  widtblx,  daptbx,  forax,  backx) 

'IF  (oldaal  >  9)  OR  (aalactl  <>  11)  THEN  GOSUB  display  status_box:  RETURN 
'IF  oldaal  -  9  THEN  LOCATE  20,  2:  INPUT  “Typa  Filanama”for  BMP  fila  ";  f$ 

'IF  oldaal  -  8  THEN  LOCATE  20,  2:  INPUT  “Typa  Filonama  for  BIN  Fila  ";  f$ 

'IF  oldaal  -  8  THEN  LOCATE  20,  2:  PRINT  SFC(60); 

'IF  oldaal  -  8  THEN  LOCATE  20,  2:  INPUT  "Typa  Palatta  for  BIN  fila  g$ 

’ IF  oldaal  «  8  THEN  updown  “  0 :  baadbita  »  0 
'IF  f$  -  “'  THEN  GOSUB  display  status  box:  RETURN 
'i  -  INSTR(f$,  “.") 

'IF  i  <>  0  THEN  bl$  -  LEFT$ (f$,  i  -  1)  ELSE  hl$  -  f$ 
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'h2$  -  hl$  +  M' 

' h3$  -  hl$  +  * .1" 

' h4$  -  hl$  +  ”.Q" 

'IF  salactl  <>  11  THEN  GOSUB  display_status_box:  RETURN 
'LOCATE  21,  2:  PRINT  ”Ouput  Ellas  will  ba  ",  b2$,  h3$,  b4$ 

'LOCATE  22,  2:  INPUT  “Typa  any  ksy  to  oontlnua  “ ;  a $ 

'COLOR  7,  0 
'  CLS 

'IF  oldsal  -  9  THEN  GOSUB  21000 
'OPEN  -tflla"  FOR  OUTPUT  AS  #1 
'PRINT  #1,  dmoda  +  1 
'PRINT  «1,  9$ 

'PRINT  #1,  f$ 

'PRINT  tl,  xdim 
'PRINT  #1,  ydim 

'PRINT  #1,  haadbits  'haadarbits  to  skip  is  taro 

'PRINT  #1,  updown  'start  on  first  lino 

'PRINT  <1,  b2$ 

'PRINT  #1,  b3$ 

'PRINT  #1,  h4$ 

'CLOSE  *1 

'SHELL  “BMP2YIQ . axa~ 

'COLOR  7,  0 
'CLS 

'GOSUB  Print_titla_bar 
'GOSUB  display_status_box 
'fin  -  1 
'RETURN 

eonvar : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  «  19:  column*  »  1:  widthlx  ■  79:  daptbx  -  S:  forax  «  15:  backx  *  4 
CALL  box (rowx,  columnx,  widthlx,  daptbx,  forax,  backx) 

LOCATE  20,  2:  INPUT  *Typa  Input  Filanama  h$ 

IF  b$  -  —  THEN  GOSUB  display  status  box:  RETURN 
LOCATE  21,  2:  INPUT  “Typa  Outpu';  Palatta  *;  hl$ 

IF  hl$  -  -''  THEN  GOSUB  display_statua_box :  RETURN 
LOCATE  22,  2:  INPUT  "Type  Output  Imago  Nama  h2$ 

IF  b28  »  «*’  THEN  GOSUB  display_status_box :  RETURN 
COLOR  7,  0 

OPEN  "tfila"  FOR  OUTPUT  AS  #1 
PRINT  *1,  h$ 

PRINT  «1,  hl$ 

PRINT  II,  h2$ 

CLOSE  «1 
VIEW  PRINT 
CLS 

RUN  *pcxtobin.axa” 

CLS 

COSUB  Print_titla__bar 
GOSUB  display_status_box 
RETURN 

RETURN 


SHELL1 : 

VIEW  PRINT 
CLS 
SHELL 
CLS 

GOSUB  Print_titla_bar 
GOSUB  display  status_box 
RETURN 
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copy file : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  “  19:  colunnx  *  1:  widtblx  «  79:  dapthx  »  5:  forex  ■  15:  backx  »  4 
CALL  box ( rowx,  coluanx,  widthlx,  dapthx,  forax,  backx) 

IF  aalactl  -  9  THEN  LOCATE  20,  2:  INPUT  *Typa  Filanana  to  Copy  Pros  b$ 
IF  (aalactl  »  9)  AND  (bt  -  “")  THEN  COSUB  diaplay_atatua_box:  RETURN 
IF  aalactl  •  9  THEN  LOCATE  21,  2:  INPUT  “Type  Fllanaaa  to  Copy  To  ';  bit 
IF  (aalactl  “  9)  AND  (hit  -  “")  THEN  COSUB  diaplay_atatua_box:  RETURN 
IF  aalactl  -  10  THEN  LOCATE  20,  2:  INPUT  “Type  Fllanaaa  to  Ranaaa  ';  b$ 

IF  (aalactl  -  10)  AND  (h t  »  “')  THEN  COSUB  dlaplay  atatua_box:  RETURN 
IF  aalactl  -  10  THEN  LOCATE  21,  2:  INPUT  “Type  New~Fllenane  bit 
IF  (aalactl  -  10)  AND  (bit  “  “')  THEN  COSUB  dlaplay  atatua  box:  RETURN 
IF  aalactl  -  11  THEN  LOCATE  20,  2:  INPUT  “Type  Fllanaaa  to~Dalata  ';  bt 
IF  (aalactl  -  11)  AND  (bt  -  ”')  THEN  COSUB  dlaplay_atatua  box:  RETURN 
COLOR  7,  0 
CLS 

IF  aalactl  -  10  THEN  NAME  bt  AS  bit 
IF  aalactl  -  11  THEN  XILL  bt 

IF  aalactl  «  9  THEN  SHELL  "copy  "  +  hi  +  *  *  +  bit 

PRINT  “Type  any  key  to  contlnua  ' 

qL:  at  -  INKEYt 

IF  at  -  **  THEN  GOTO  qL 

CLS 

COSUB  Pclnt_tltla_bar 
COSUB  dlaplay  atatua_box 
RETURN 


paata : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  “  19:  colusinx  «  1:  widtblx  ”  79:  daptbx  «  5:  forax  -  15:  backx 
CALL  box (rowx,  columnx,  widtblx,  dapthx,  forax,  backx) 

LOCATE  20,  2:  INPUT  *Typa  Firat  Filanana  bt 

IF  (bt  »  '")  THEN  COSUB  dlaplay  atatua  box:  RETURN 

LOCATE  20,  42:  INPUT  "Typo  Sacond  Filanana  bit 

IF  (hit  “  *")  THEN  COSUB  diaplay_atatua_box:  RETURN 

LOCATE  21,  2:  INPUT  *Typa  Filanana  to  aava  compoalta  fila  h2t 

IF  (b2t  “  '")  THEN  COSUB  dlaplay  atatua_box:  RETURN 

LOCATE  22,  2:  INPUT  *Typa  X-Dinanaion  '7  xxdln 

IF  xxdln  «  0  THEN  COSUB  dlaplay  atatuajbox:  RETURN 

LOCATE  22,  42:  INPUT  "Typa  Y-Dinanaion  yydln 

IF  yydln  "  0  THEN  COSUB  diaplay_atatua  box:  RETURN 

IF  aalactl  -  13  THEN  topt  -  “TOP' 

IF  aalaatl  -  14  THEN  topt  -  “SIDE' 


IF  aalactl  -  13  THEN  topt  -  “TOP' 
IF  aalaatl  -  14  THEN  topt  -  “SIDE' 
COLOR  7,  0 
CLS 

OPEN  “TFILE"  FOR  OUTPUT  AS  #1 

PRINT  #1,  bt 

PRINT  »1,  bit 

PRINT  «1,  h2t 

PRINT  *1,  xxdln 

PRINT  #1,  yydln 

PRINT  #1,  topt 

CLOSE  *1 

SHELL  “paata. axa' 

PRINT  “Typa  any  kay  to  continue  ” 

qn:  at  «  INKEYt 

IF  at  «  “'  THEN  GOTO  qm 

CLS 

COSUB  Prlnt_tltle_bar 
COSUB  dlaplay_atatua  box 
RETURN 


entropy: 
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VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  m  19:  columnx  «  1:  widthlx  -  79:  dapthx  »  5:  forax  “  15:  backx  “  4 
CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

LOCATE  21,  11:  INPUT  "Typa  Fllanama  to  Analyza  ",  h$ 

IP  h$  «*  *"  THIN  GOSUB  dlaplay_atatua_box:  RETURN 

COLOR  7,  0 

CLS 

OPEN  “tfila”  FOR  OUTPUT  AS  #1 
PRINT  #1,  h$ 

CLOSE  #1 

SHELL  “an t ropy . axa" 

PRINT  "Typa  any  kay  to  contlnua  " 

qw:  a$  «  INKEYS 

IF  a$  -  THEN  GOTO  qw 

CLS 

GOSUB  Print_titla_bar 
GOSUB  display_atatua_box 
RETURN 

ahall_lookona : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  m  19:  columnx  *  1:  widthlx  “  79:  dapthx  “  5:  forax  “  15:  backx  “  4 
CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

LOCATE  20,  2:  INPUT  "Typa  Fllanama  to  Examlna  h$ 

IF  hS  -  THEN  GOSUB  diaplay_atatus_box :  RETURN 
LOCATE  21,  2:  INPUT  "Typa  X-Dlmansion  xxdim 
IF  xxdim  ■  0  THEN  GOSUB  display_atatua_box:  RETURN 
LOCATE  21,  40:  INPUT  "Typa  Y-Dimansion~";  yydlm 
IF  yydlm  •  0  THEN  GOSUB  diaplay_atatua_box:  RETURN 
LOCATE  22,  2:  INPUT  "Typa  Blocksiza  *;  bslza 
IF  bslza  «  0  THEN  GOSUB  dlaplay_statua_box :  REloRN 
COLOR  7,  0 

OPEN  "tfila"  FOR  OUTPUT  AS  #1 
PRINT  #1,  h$ 

PRINT  *1,  xxdim 
PRINT  #1,  yydlm 
PRINT  #1,  bslza 
CLOSE  #1 
VIEW  PRINT 
CLS 

SHELL  "lookona .axa" 

CLS 

GOSUB  Prlnt_titla_bar 
GOSUB  display  status_box 
RETURN 

shall_looktwo : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  •>  19:  columnx  “  1:  widthlx  “  79:  dapthx  -  5:  forax  “  15:  backx  “  4 
CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

LOCATE  20,  2:  INPUT  "Typa  First  Fllanama  ”,  h$ 

IF  h$  ■  "”  THEN  GOSUB  dlsplay_status_box:  RETURN 
LOCATE  20,  40:  INPUT  "Typa  Sacond  Fllanama  hl$ 

IF  hl$  -  THEN  GOSUB  display_status_box:  RETURN 
LOCATE  21,  2:  INPUT  "Typa  X-Dlmansion_”;  xxdim 
IF  xxdim  ■>  0  THEN  GOSUB  display_status_box:  RETURN 
LOCATE  21,  40:  INPUT  "Typa  Y-Dimansion  -/ydirn 
IF  yydlm  »  0  THEN  GOSUB  display_status_box:  RETURN 
LOCATE  22,  2:  INPUT  "Typa  Blocksiza  bslza 
IF  bslza  •>  0  THEN  GOSUB  display_status_box:  RETURN 
COLOR  7,  0 
VIEW  PRINT 
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OPEN  -tfila”  POR  OUTPUT  AS  #1 
PRINT  #1.  h$ 

PRINT  #1,  hi  9 
PRINT  #1.  xxdim 
PRINT  #1,  yydim 
PRINT  *1,  bsiza 
CLOSE  #1 

SHELL  "looktwo .axa* 

CLS 

GOSUB  Print_titla_bar 
COSUB  display  atatua  box 
RETURN 


VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  -  19:  oolumnx  •  1:  widthlx  »  79:  dapthx  ■  5:  forax  «  15: 
CALL  box (rowx,  column*,  widthlx,  dapthx,  forax,  backx) 

LOCATE  20,  2:  INPUT  “Typa  Plrat  Fllanama  h« 

IF  h$  -  THEN  GOSUB  display  status  box:  RETURN 
LOCATE  21,  2:  INPUT  "Typa  Second  Fllanama  hl« 

IF  hl$  -  THEN  GOSUB  display  atatua  box:  RETURN 

COLOR  7,  0 

CLS 

OPEN  -tfila"  FOR  OUTPUT  AS  #1 
PRINT  #1,  h$ 

PRINT  #1,  bl$ 

CLOSE  #1 
SHELL  "maa .axa" 

PRINT 

PRINT  “Type  any  key  to  contlnua  “ 
qx:  a$  -  INKEY$ 

IF  |$  «  **  THEN  GOTO  qx 
CLS 

GOSUB  Print_title_bar 
GOSUB  display_status_box 
RETURN 


baekx 


histogram: 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  «  19:  eolumnx  -  1:  widthlx  “  79:  dapthx  »  5:  forax  «  15:  backx 
CALL  box (rowx,  oolumnx,  widthlx,  dapthx,  forax,  baakx) 

LOCATE  21,  11:  INPUT  "Typa  Fllanama  to  Display  Hiatogram  *;  h$ 

IF  h$  -  THEN  GOSUB  display_statua_box:  RETURN 

LOCATE  22,  11:  INPUT  "Typa  Fllanama  to  Sava  Histogram  hl$ 

IF  hl$  -  *"  THEN  hl$  -  “none' 

IF  hl$  “  "non*”  THEN  tamp  “  0  ELSE  tamp  m  l 

COLOR  7,  0 

CLS 

OPEN  “tfile'  FOR  OUTPUT  AS  *1 
PRINT  #1,  h$ 

PRINT  *1,  tamp 
PRINT  #1,  hl$ 

CLOSE  «1 

SHELL  “histo.exe" 

CLS 

GOSUB  Print_title_bar 
GOSUB  display_statua_box 
RETURN 


SHELL  zip: 

VIEN  PRINT  18  TO  24 
COLOR  7,  0 
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*owx  -  19:  coluanx  “  1:  widthlx  »  79:  dapthx  -  5:  forax  -  15:  baekx  -  4 
CALL  box (rowx,  ooluanx,  widthlx,  dapthx,  forax,  baekx) 

LOCATE  21,  11:  INPUT  “Typa  Filanaaa  to  Coapraas  *;  hS 
IF  h$  ■  THIN  GOSOB  display  status  box:  RETURN 
i  »  INSTR (h$,  “.') 

IF  i  <>  0  THEN  hlS  “  LEFTS (b$,  i  -  1)  ELSE  bl$  -  h$ 
hl9  “  hl$  +  ".sip” 

COLOR  7,  0 
CLS 

SHELL  "pktip  -s  '  +  hl$  +  ”  ”  +  h$ 

PRINT  “Typa  any  kay  to  oontinua 

LI:  a$  -  INKEYS 

IF  s$  -  '*  THEN  GOTO  LI: 

CLS 

COSOB  Print_titla_bar 
GOSUB  diaplay_status  box 
RETURN 
SHELL_unsip : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  -  19:  coluanx  -  1:  widthlx  -  79:  dapthx  -  S:  forax  -  15:  bsckx  -  4 
CALL  box (rowx,  coluanx,  widthlx,  dapthx,  forax,  bsckx) 

LOCATE  21,  11:  INPUT  “Typa  Filansaa  to  Dacoaprass  *;  h$ 

IF  h$  -  “"  THEN  GOSUB  display  status  box:  RETURN 
COLOR  7,  0  ~ 

CLS 

SHELL  “pkunsip  *  +  hS 

PRINT  “Typa  any  kay  to  continua  *; 

L2 :  a$  «  INKEYS 

IF  a$  -  »«  THEN  GOTO  L2: 

CLS 

GOSUB  Print_titla_bar 
GOSUB  display  status  box 
RETURN 

SHELL_ahuff : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  -  19:  coluanx  -  1:  widthlx  -  79:  dapthx  -  5:  forax  »  15:  baekx  -  4 
CALL  box (rowx,  columnx.  widthlx,  dapthx,  forax,  baekx) 

LOCATE  21.  11:  INPUT  “Typa  Filanaaa  to  Coaprass  h$ 

IF  h$  »  **  THEN  GOSUB  display_status  box:  RETURN 
LOCATE  22,  11:  INPUT  ’’Typa  Output  Filanaaa  hl$ 

IF  hlS  “  **  THEN  GOSUB  display  status  box:  RETURN 
COLOR  7,  0  ~ 

CLS 

SHELL  “ahuff  *  +  h$  +  *  *  +  hlS 
PRINT  "Typa  any  kay  to  continua  *; 

L3:  a$  -  INKEYS 

IF  aS  »  “*  THEN  GOTO  L3: 

CLS 

GOSUB  Prlnt_tltla_bar 
GOSUB  display  status  box 
RETURN 

SHELL  aunhuff: 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  -  19:  coluanx  -  1:  widthlx  -  79:  dapthx  ■  5:  forax  ■  15:  baekx  -  4 
CALL  box (rowx,  coluanx,  widthlx,  dapthx,  forax,  baekx) 

LOCATE  21,  11:  INPUT  'Typa  Filanaaa  to  Dacoaprass  h$ 

IF  b$  »  THEN  COSUB  display_status_box:  RETURN 
LOCATE  22,  11:  INPUT  “Typa  Output  Filanaaa  hl$ 

IF  hlS  ■  THEN  GOSUB  display  status  box:  RETURN 
COLOR  7,  0 
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CLS 

SHILL  “aunhuff  “  h$  +  “  "  +  hlf 
PRINT  'Typa  any  key  to  continue 
L4 :  a«  -  INKIY$ 

IF  a$  ■  *"  THIN  GOTO  L4: 

CLS 

COSOB  Pr±nt_titla_bar 
GOSOB  diaplay_statua_box 
RIT0NN 

SHILL  huff: 

VZIN  PRINT  18  TO  24 
COLOR  7,  0 

rowx  “  19:  columnx  -  1:  wldthlx  “  79:  daptbx  -  5:  forex  -  IS:  baokx  -  4 
CALL  box (rowx,  oolunnx,  wldtblx,  daptbx,  forax,  baakx) 

LOCATE  21,  11:  INPOT  “Type  Filanama  to  Compraaa  h$ 

IF  b$  «  ”  THIN  GOSOB  diaplay  atatua  box:  RITORN 
LOCATE  22,  11:  INPOT  “Type  Output  Fllanana  hl$ 

IF  bl$  -  THIN  GOSOB  diaplay  atatua_box:  RETORN 

COLOR  7,  0 

CLS 

SHILL  “huff  '  +  b$  +  “  '  +  hl$ 

PRINT  “Typa  any  key  to  aontinua 
L5 :  a$  -  INKIY$ 

IF  a$  «  “'  THIN  GOTO  L5: 

CLS 

GOSOB  Print_titla_bar 
GOSOB  dlaplay_atatua_box 
RITORN 

SHELL_unhuf f : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

row x  “  19:  columnx  »  1:  wldthlx  “  79:  daptbx  m  S:  forax  »  15:  baokx  •  4 
CALL  box (rowx,  columnx,  wldthlx,  daptbx,  forax,  backx) 

LOCATE  21,  11:  INPOT  “Typa  Filanama  to  Daaompraaa  h$ 

IF  h$  »  *”  THIN  GOSOB  diaplay  atatua  box:  RITORN 
LOCATE  22,  11:  INPOT  “Typa  Output  Filanama  hl$ 

IF  hl$  ■  “"  THEN  GOSOB  diaplay  atatua  box:  RITORN 

COLOR  7,  0 

CLS 

SHILL  “unhuff  '  +  h$  +  “  -  +  hl$ 

PRINT  “Typa  any  kay  to  oontinua 

L6:  a$  -  INKEY8 

IF  a$  »  “"  THIN  GOTO  L6: 

CLS 

GOSOB  Prlnt_tltla_bar 
GOSOB  diaplay_atatua_box 
RITORN 

SHELL_ariO : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  •  19:  columnx  ■  1:  wldtblx  >79:  daptbx  m  5:  forax  «  15:  backx  «  4 
CALL  box (rowx,  columnx,  wldtblx,  daptbx,  forax,  backx) 

LOCATE  21.  11:  INFOT  “Typa  Filanama  to  Compraaa  h$ 

IF  h)  >  THIN  GOSOB  display_atatua_box:  RITORN 
LOCATE  22,  11:  INPUT  “Typa  Output  Filanama  hl$ 

IF  hl$  “  “”  THIN  GOSOB  display_atatua_box:  RETURN 

COLOR  7,  0 

CLS 

SHILL  “arith  '  +  b$  +  “  '  +  hl$ 

PRINT  "Typa  any  kay  to  continua 
L7 :  a$  «  INKEY$ 

IF  at  •  THIN  GOTO  L7: 
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15 :  back* 


CLS 

GOSUB  Print_titl«_bar 
SOSOB  diaplay_statua_box 
RETURN 

SHILL  aril: 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rovx  m  19:  columnx  ■  1:  widthlx  -  79:  dapthx  “  5:  forax 
CALL  box (rowx,  coluonx,  widthlx,  dapthx,  forax,  backx) 
LOCATE  21,  11:  INPOT  "Typa  Filanama  to  Compraaa  h$ 

IP  Q$  »  *■  THEN  GOSOB  display  status  box:  RETURN 
LOCATE  22,  11:  INPUT  "Typa  Output  Filanaaa  hl$ 

IF  hl$  -  «»  THEN  GOSUB  display  status_box:  RETURN 

COLOR  7,  0 

CLS 

SHELL  "arithl  *  +  h$  +  *  “  +  hl$ 

PRINT  "Typa  any  kay  to  continua 

L8:  a$  -  INKEY8 

IF  a$  •  ”  THEN  GOTO  L8: 

CLS 

GOSUB  Print_titla_bar 
GOSUB  display  status  box 
RETURN 


SHELL  ari2 : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  “  19:  oolumnx  «  1:  widthlx  «■  79:  dapthx  m  5:  forax  -  15:  baokx  “  4 
CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  baekx) 

LOCATE  21,  11:  INPUT  "Typa  Filanama  to  Comprass  h$ 

IF  h$  «  «-  THEN  GOSUB  diaplay_status_box:  RETURN 
LOCATE  22,  11:  INPUT  "Typa  Output  Filanama  hl$ 

IF  hl$  -  •»  THEN  GOSUB  display  status  box:  RETURN 

COLOR  7,  0 

CLS 

SHELL  "arithn  “  +  h$  +  "  '  +  hl$  +  "  -o  2" 

PRINT  "Typa  any  kay  to  continua  " ; 

L9:  a$  -  INKEY8 

IF  a$  -  "»  THEN  GOTO  L9: 

CLS 

GOSUB  Pr lnt_t it la_bar 
GOSUB  display_status_box 
RETURN 

SHELL_unariO : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  •  19:  columnx  «  1:  widthlx  ■  79:  dapthx  “  5:  forax  «  15:  backx  “  4 
CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

LOCATE  21,  11:  INPUT  "Typa  Filanama  to  Dacomprass  h$ 

IF  h$  -  "”  THEN  GOSUB  di splay_st atus_box :  RETURN 
LOCATE  22,  11:  INPUT  "Typa  Output  Filanama  *;  hl« 

IF  hl$  “  *'  THEN  GOSUB  display  status_box:  RETURN 

COLOR  7,  0 

CLS 

SHELL  "unarith  *  +  h$  +  "  '  +  hl$ 

PRINT  "Typo  any  kay  to  continua  " ; 

L10:  a$  -  INKEY$ 

IF  a$  «  *'  THEN  GOTO  L10: 

CLS 

GOSUB  Print_tltla_bar 
GOSUB  display_status_box 
RETURN 
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SHELL  unaril : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rovx  »  19:  ooluanx  ■  1:  vldtblx  -  79:  dapthx  -  5:  forax  “  15:  baekx  “  4 
CELL  box (rovx,  ooluanx,  vldtblx,  dapthx,  forax,  backx) 

LOCATE  21,  11:  INPOT  "Typo  Fllanaaa  to  Daaoaprass  bS 
IF  b$  -  —  THEN  GOSUB  di splay_»t »tu*_box :  RETURN 
LOCATE  22,  11:  INPOT  "Typo  Output  Fllanaaa  bl8 
IF  bl$  -  “■  THEN  60S0B  display_status_box :  RETURN 
COLOR  7,  0 
CLS 

SHELL  "unarithl  "  +  bS  +  “  '  +  hlS 
PRINT  “Typa  any  kay  to  oontlnua  ' ; 

Lll:  a$  -  INKSY$ 

IF  a$  •  "  THEN  SOTO  Lll: 

CLS 

GOSUB  Prlnt_tltla_bar 
GOSUB  display  status  box 
RETORN 

SHELL  unarl2 : 

VIEW  PRINT  IS  TO  24 
COLOR  7,  0 

rovx  «  19:  ooluanx  •  1:  vldtblx  “  79:  daptbx  -  5:  forax  «  15:  baakx  «  4 
CALL  box (rovx,  ooluanx,  vldtblx,  daptbx,  forax,  backx) 

LOCATE  21,  11:  INPOT  “Typa  Fllanaaa  to  Daaoaprass  b$ 

IF  bS  -  **  THEN  GOSOB  display  atatus_box:  RETORN 
LOCATE  22,  11:  INPUT  "Typa  Output  Fllanaaa  blS 
IF  bl$  -  ««  THEN  GOSUB  display  status  box:  RETURN 
COLOR  7,  0 
CLS 

SHELL  munaritbn  '  +  b$  +  ”  ”  +  bl$  +  »  -©  2" 

PRINT  "Typa  any  kay  to  oontlnua 

L12 :  a$  -  INKEYS 

IF  a$  -  —  THEN  GOTO  L12 : 

CLS 

GOSUB  Prlnt_titla_bar 
GOSUB  display_status  box 
RETURN 

SHSLL_lharo : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rovx  »  19:  ooluanx  »  1:  vldtblx  “  79:  daptbx  ■  5:  forax  »  15:  backx  -  4 
CALL  box (rovx,  ooluanx,  vldtblx,  daptbx,  forax,  baakx) 

LOCATE  21,  11:  INPUT  "Typo  Fllanaaa  to  Coaprass  *;  b$ 

IF  b$  -  »*  THEN  GOSUB  dlsplay_status  box:  RETURN 

LOCATE  22,  11:  INPUT  "Typa  Output  Fllanaaa  (no  axtansion)  *;  blS 

IF  blS  “  **  THEN  GOSUB  display  status  box:  RETURN 

COLOR  7,  0 

CLS 

LOCATE  18,  1 

SHELL  "lharc  a  *  +  hlS  +  *  *  +  bS 
PRINT  "Typa  any  kay  to  oontlnua 
upl:  a$  -  INKEYS 
IF  aS  ■  **  THEN  GOTO  upl: 

CLS 

GOSUB  Print_tltla_bar 
GOSUB  display  status_box 
RETURN 

SHELL  unlbarc: 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rovx  ■  19:  ooluanx  “  1:  vldtblx  «  79:  daptbx  «  5:  forax  “  15:  baakx  ■>  4 
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CALL  box (rowx,  oolumnx,  widthlx,  dapthx,  forex,  baekx) 

LOCATE  21,  11:  INPUT  *Typ«  Filename  to  Decompress  (no  extension) h$ 

IF  b$  •  *'  THEN  COSUB  diaplay_atatua_box:  RETURN 

COLOR  7,  0 

CLS 

LOCATE  18,  1 

SHELL  "lharc  x  "  +  h$ 

PRINT  "Typa  any  key  to  oontinua 
up:  a$  -  INKSY$ 

IP  a$  -  "'  THEN  GOTO  up: 

CLS 

GOSUB  Prlnt_tltla_bar 
GOSUB  dlaplay_atatua  box 
RETURN 

obop_imaga : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  «  19:  oolumnx  “  1:  widthlx  »  79:  dapthx  ■  5:  forax  »  15:  baakx  «  4 
CALL  box(rowx,  oolumnx,  widthlx,  dapthx,  forax,  baekx) 

LOCATE  20,  2:  PRINT  "Upper  Laft  Coordlnata  for  X  :  INPUT  xup 
LOCATE  20,  45:  PRINT  “For  Y  :  INPUT  yup 

LOCATE  21,  2:  PRINT  "Bottom  Right  Coordlnata  for  X  *;  :  INPUT  xdown 
LOCATE  21,  45:  PRINT  "For  Y  *;  :  INPUT  ydown 
LOCATE  22,  2:  INPUT  "Typa  Filanama  to  Sava  hl$ 

IF  (xup  +  xdown  +  yup  +  ydown)  “  0  THEN  GOSUB  diaplay  atatua  box:  RETURN 
COLOR  7,  0 

OPEN  "tflla"  FOR  OUTPUT  AS  #1 

PRINT  #1,  xup 

PRINT  #1,  yup 

PRINT  *1,  xdown 

PRINT  #1.  ydown 

PRINT  #1,  hl$ 

PRINT  *1,  xdim 
PRINT  «1,  ydim 
PRINT  *1,  f$ 

CLOSE  *1 
CLS 

SHELL  "chop . axa" 

CLS 

GOSUB  Prlnt_titla_bar 
GOSUB  dlaplay_atatua  box 
RETURN 

dlffar : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  -  19:  oolumnx  *  1:  widthlx  «  79:  dapthx  ■  5:  forax  *  15:  baokx  »  4 
CALL  box (rowx,  oolumnx,  widthlx,  dapthx,  forax,  baekx) 

LOCATE  20,  2:  INPUT  "Type  Firat  Filanama  j$ 

IF  j$  -  *"  THEN  GOSUB  diaplay_atatua  box:  RETURN 
LOCATE  21,  2:  INPUT  "Type  Second  Filanama  jl$ 

IF  jl$  -  "'  THEN  GOSUB  diaplay_atatua_box:  RETURN 

LOCATE  22,  2:  INPUT  "Type  Filanama  to  Store  Diffaranca  j2$ 

IF  j2$  -  «”  THEN  GOSUB  diaplay_atatua  box:  RETURN 
COLOR  7,  0 

OPEN  "tfila"  FOR  OUTPUT  AS  #1 
PRINT  #1, 

PRINT  #1,  31$ 

PRINT  #1,  32$ 

CLOSE  #1 
CLS 

IF  aalectl  -  9  THEN  SHELL  "differ .axa" 

IF  aalectl  “  10  THEN  SHELL  "adder. axa" 

CLS 
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GOSUB  Print_titla_bar 
GOSUB  diaplay_atatua_box 
RETURN 

bit_planaa : 

a  “  aalactl 

IF  a  ■  8  THEN  grayS  -  "GRAYSCALE"  ELSE  grayS  -  "COLOR" 

IF  (a  >-  5)  THEM  jS  ■  "NOSAVE":  h  -  0:  hi  -  255:  GOTO  tf: 

VIEW  PRINT  18  TO  24 

COLOR  7,  0 

rovx  -  19:  columnx  “  1:  widthlx  -  78:  dapthx  -  5:  forax  -  15:  baokx  -  4 
CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  baokx) 

LOCATE  20,  2:  INPUT  "Typa  Bit-Plana  to  Vlaw  (1  ia  LSB,  8  ia  MSB),  or  <RET>  *;  h 
h  >  INT(h):  IF  < (h  <  0)  OR  (h  >  8))  THEN  GOSUB  diaplay  atatua  box:  RETURN 
IF  h  -  0  THEN  LOCATE  21,  2:  INPUT  "Typa  Binary  Numbar  batwaan  1  and  255  to  AND 
with  Plxala  ";  hi 

hi  a  INT(hl):  IF  (h  a  0)  AND  ( (hi  <  0)  OR  (hi  >  255))  THEN  GOSUB  diaplay  ata- 
tus_box :  RETURN 

IF  (h  -  0)  AND  (hi  ■  0)  THEN  GOSUB  diaplay_atatua  box:  RETURN 
LOCATE  22,  2:  INPUT  "Typa  Filanama  to  Sava~Naw  Fila  or  <RRT>  *;  j$ 

IF  jS  -  *"  THEN  jS  -  "NOSAVE" 

COLOR  7,  0 
CLS 

tf:  OPEN  "Tfila"  FOR  OUTPUT  AS  #1 
PRINT  «Z,  dmoda  +  1 
PRINT  *1,  g$ 

PRINT  #1,  f$ 

PRINT  #1,  xdim 
PRINT  #1,  ydim 

PRINT  #1,  haadbita  'haadarbita  to  akip  ia  taro 

PRINT  #1,  updown  *  at art  on  firat  lina 

IF  h  <>  0  THEN  hh  -  2  *  (h  -  1)  ELSE  hh  a  hi 

PRINT  #1,  hh  'bitplana  numbar  from  1  to  8 

PRINT  #1,  j$ 

IF  h  <>  0  THEN  PRINT  #1,  255  ELSE  PRINT  #1,  0  'full  intanaity  if  h  <>  0 
IF  aalactl  a  4  THEN  PRINT  #1,  "ALL" 

IF  aalactl  -  5  THEN  PRINT  #1,  "RED" 

IF  aalactl  -  6  THEN  PRINT  #1,  "GREEN" 

IF  aalactl  -  7  THEN  PRINT  #1,  "BLUE" 

IF  aalactl  -  8  THEN  PRINT  #1,  grayS 

CLOSE  #1 

SHELL  "bitplana . axa" 

CLS 

GOSUB  Print_titla_bar 
GOSUB  diaplay  atatua  box 
RETURN 

palgray : 

VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowx  -  19:  columnx  -  1:  widthlx  ■  79:  dapthx  ■  5:  forax  -  15:  backx  -  4 
CALL  box (rowx,  columnx,  widthlx,  dapthx,  forax,  backx) 

LOCATE  20,  2:  INPUT  "Typa  Naw  Palatta  Nama  *;  h$ 

IF  h$  a  »"  THEN  GOSUB  diaplay_atatua  box:  RETURN 

COLOR  7,  0 

CLS 

OPEN  g$  FOR  BINARY  AS  #1 
FOR  i  a  1  TO  256 
aS  »  INPUTS (1,  1) 
rad(i)  -  ASC(aS) 

NEXT  i 

FOR  i  a  1  TO  256 
aS  -  INPUTS (1,  1) 
graan(i)  «  ASC(a$) 
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next  1 

FOR  i  -  1  TO  256 
a*  -  INPUT*  (1,  1) 
blued)  -  ASC  (a$) 

NEXT 
CLOSE  #1 

POR  i  -  1  TO  256 

r«d(l)  -  .299  *  r«d(l)  +  .587  •  green(i)  +  .114  *  blue(l) 

IP  redd)  >  255  THEN  redd)  -  255 

redd)  -  INT  (redd) ) 

blued)  ■  red(l) 

green (1)  »  blue(l) 

NEXT  1 

OPEN  h$  POR  OUTPUT  AS  «1 
POR  i  -  1  TO  256 
PRINT  *1,  CHR$ (red (1) ) ; 

NEXT  1 

POR  1  -  1  TO  256 

PRINT  #1,  CHR* (green (1) ) ; 

NEXT  1 

POR  i  -  1  TO  256 

print  #i,  chr$ (blue (UK- 
next  1 

CLOSE  #1 
CLS 

GOSUB  Print_title_bar 
GOSUB  dlepley_atetue_box 
RETURN 


ahell_dct : 

REM  "Load  up  Tfile  and  Shell  to  DCT.EXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rows  *>  19:  columns  -  1:  widthlz  -  79:  depths  ”  5:  fores  «  15:  backs  «  4 
CALL  box (rows,  columns,  widthlz,  depths,  fores,  backs) 

LOCATE  20.  2:  INPUT  'Type  Filename  to  Save  hlS 

IF  hl$  -  '"  THEN  row  «  7:  column  •  46:  wldthl  ■  22:  depth  "  7:  fore  -  15:  back 
«  1:  GOSUB  clear_box 

IF  hl$  -  THEN  GOSUB  diaplay  atatua_box:  RETURN 
COLOR  7,  0 

OPEN  'tfile"  POR  OUTPUT  AS  #1 
PRINT  *1,  dinode  +  1 
PRINT  *1,  g$ 

PRINT  11,  f$ 

PRINT  11,  xdlm 
PRINT  11,  ydlm 

PRINT  11,  headblta  ’ headerbits  to  skip  la  zero 

PRINT  tl,  updown  'start  on  first  line 

PRINT  11,  TRANS* 

PRINT  11,  blookaise 
PRINT  11,  "TRANSFORM" 

PRINT  11,  hi* 

PRINT  11,  thresh 
PRINT  II,  zonal 
PRINT  II,  k* 

PRINT  II,  blockaize  'expandsize  entry 

CLOSE  II 

SHELL  'dct.exe" 

VIEW  PRINT:  COLOR  7,  0:  CLS  :  GOSUB  display_status_box 

GOSUB  Print_title_bar 

RETURN 


dctjbox: 

IF  select 1  -  10  THEN  TRANS*  -  'COSINE" 
IF  selectl  -  11  THEN  TRANS*  -  'SINE" 


AA34 


Appendix  AA  The  IMAGE83  Host  Processor 


IF  select 1  -  12  THEN  TRANS*  -  'HAD AWARD" 

blooksise  >  8:  thrash  -  0:  sonal  *  •:  W  •  “DON’ T_STR1P_ZKR0IS* 
axpandsisa  >  blockslxa 

anti:  row  >  7:  colusm  >  48:  wldthl  «  27:  depth  •  10:  fora  “  IS:  back  “  1 
VI IW  PRINT  2  TO  18 

CALL  box (row,  column,  wldthl,  dapth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  4  1,  colusm  4  1:  PRINT  “Sava  As . :  aa- 

lactl  >  row  4  1 

COLOR  fora,  back:  LOCATE  row  4  2,  column  +  1:  PRINT  “Blockslxa  blockslxa 
COLOR  fora,  back:  LOCATE  row  4  3,  column  4  1:  PRINT  “Threshold  thrash 

COLOR  fora,  back:  LOCATE  row  4  4,  column  4  1:  PRINT  “Sonal  Mask  sonal 
COLOR  fora,  back:  LOCATE  row  4  5,  column  4  1:  PRINT  k$ 

COLOR  fora,  baak:  LOCATE  row  4  6,  colusm  4  1:  PRINT  “X-Dimanalon  -  *;  xdlm 

COLOR  fora,  back:  LOCATE  row  4  7,  colusm  4  1:  PRINT  “Y-Dimension  ■  ydlm 

COLOR  fora,  back:  LOCATE  row  4  8,  colusm  4  1:  PRINT  “Filename  is  " ;  f$ 

rapl :  a*  •  INKEY$ 

IF  a*  -  “"  THEN  GOTO  rapl: 

IF  ASC (LEFT* (a$,  1))  -  27  AND  ASC (RIGHT* (a$,  1))  -  27  THEN  GOSOB  claar_box:  RE¬ 
TURN 

IF  (salactl  -  (row  4  1))  AND  (a*  -  CHR$(13))  THEN  GOSUB  shall  det :  COSUB  ant3 : 
GOSUB  claar_box:  RETURN 

IF  (salactl  <>  (row  4  1))  AND  (a*  -  CHR$(13))  THEN  GOSUB  ql:  GOTO  anti 
GOSUB  std_box  stuff 
GOTO  rapl  ~ 

ant3:  row  >  7:  oolusm  >  46:  wldthl  >  27:  dapth  >  10:  fora  «  15:  back  ■  1 
RETURN 

invdct_box: 

IF  salactl  -  10  THEN  TRANS*  -  “COSINE" 

IF  salactl  -  11  THEN  TRANS*  -  “SINE" 

IF  salactl  -  12  THEN  TRANS*  -  “HAD AWARD" 

blockslxa  -  8:  thrash  -  0:  sonal  -  8:  k$  -  “DON' T_STRIP_EEROES" 
axpandsisa  -  blockslxa 

ent2 :  row  «  7:  column  «  4:  wldthl  »  31:  dapth  »  8:  fora  >  15:  back  >  1 
VIEW  PRINT  2  TO  18 

CALL  box (row,  column,  wldthl,  depth,  fora,  back) 

COLOR  7,  0:  LOCATE  row  4  1,  colusm  4  1:  PRINT  “Sava  As _ :  salactl  »  row  4  1 

COLOR  fora,  back:  LOCATE  row  4  2,  colusm  4  1:  PRINT  “Blockslxa  >" ;  blockslxa 

COLOR  fora,  back:  LOCATE  row  4  3,  colusm  4  1:  PRINT  “Typa  Filename  ■  hi* 

COLOR  fora,  baak:  LOCATE  row  4  4,  oolusm  4  1:  PRINT  “Typo  X-Dimension  -  xdlm 

COLOR  fora,  back:  LOCATE  row  4  5,  oolusm  4  1:  PRINT  “Typa  Y-Dimension  »  ydlm 

COLOR  fora,  back:  LOCATE  row  4  6,  column  4  1:  PRINT  “Expand  Block  to  expands- 
ixa 

rap2:  a*  «  INKEY* 

IF  a*  -  THEN  GOTO  rep2: 

IF  ASC (LEFT* (a$,  1))  >27  AND  ASC (RIGHT* (a*,  1))  >27  THEN  GOSUB  clear  box:  RE¬ 
TURN 

IF  (salactl  «  (row  4  1))  AND  (a*  -  CHR*(13))  THEN  GOSUB  shall_lnvdot :  GOSUB 
ant4:  GOSUB  dear_box:  RETURN 

IF  (salactl  <>  (row  4  1))  AND  (a*  -  CHR*(13))  THEN  GOSUB  q2:  GOTO  ant2 
GOSUB  std_box_stuf f 
GOTO  rap2 

ent4:  row  -  7:  colusm  >  4:  wldthl  >  31:  depth  >  8:  fore  >  15:  back  -  l 
RETURN 

q2: 

REM  “Load  up  Tflle  and  Shall  to  dct.axa 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  >  19:  colusmy  >  1:  wldthly  >  79:  dapthy  >  5:  foray  «  15:  backy  »  4 
CALL  box (rowy,  colusmy,  wldthly,  dapthy,  foray,  backy) 

LOCATE  20,  2 

IF  salactl  -  (row  4  2)  THEN  INPUT  "Typo  Blockslxa  blockslxa 
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IF  selectl  “  (row  +  3)  THIS  ZMFOT  'Typo  Filename  that  contains  the  transform  co¬ 
efficient*  hi * 

XT  solaetl  m  (row  +  4)  THEM  INPUT  "Typo  X-Dimension  of  FI Ions—  that  contains 
tho  transform  coefficients  " ;  xdim 

IF  (seleotl  •  (row  +  5))  7 HKD  IMPOT  'Type  Y-Dimension  of  Filename  that  contains 
the  transform  coefficients  ydim 

ZF  (selectl  “  (row  +  6))  THEN  ZMFOT  'Expand  Blocksise  to  NxM  by  padding  with  se- 
roes,  M  ■  expands! *• 

COSOS  display  status  box 
RETURN 


rowx  -^7:  columnx  -  46:  widthlx  •  22:  depthx  »  7:  fore: 
COSOB  clear_box: 

VIEW  FRZNT :_ COLOR  1,  0:  CLS  :  COSOB  display_status_box 
COSOB  Print_title_bar  ~  ” 

RETURN 


depthx  «  7 :  forex  -  15 :  backx  »  1 


REM  'Load  up  Tfile  and  Shell  to  DCT.BXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

rowy  ■  19:  columny  *  1:  widthly  »  79:  depthy  *  5:  forey  ■  15:  backy  ■  4 
CALL  box (rowy,  columny,  widthly,  depthy,  forey,  backy) 

LOCATE  20,  2 

ZF  selectl  “  (row  +  2)  THEM  ZMFOT  'Type  Blocksise  blocksise 
ZF  selectl  «  (row  +  3)  THEM  ZMFOT  'Type  Threshold  thresh 

ZF  seleotl  -  (row  +  4)  THEM  ZMFOT  'Type  Zonal  Mask  sonal 
ZF  (seleotl  -  (row  +  5))  AND  (k8  -  'DOM'  T_STRIP  ZEROES')  THEN  temp8  - 
'STRIP_ZEROS_OOTSIDE_MASK' 

ZF  (seleotl  “  (row  +  5))  AND  (k$  -  'STRIP  ZEROES  OOTSZDE  MASK”)  THEM  temp*  - 
'DON'  T__STRZF_ZEROS ” 

ZF  (seleotl  -  (row  +  5))  THEN  k$  »  temp$ 

IF  (selectl  -  (row  +  6))  THEN  INPOT  'Type  X-Dimension  ■  xdim 

IF  (selectl  -  (row  +  7))  THEN  ZMFOT  'Type  Y-Dimension  -  ydim 

ZF  (selectl  -  (row  +  8))  THEN  INPOT  'Type  Filename  •  f$ 

GOSOB  display_status  box 
RETURN 

clear_box : 

VIEW  PRINT  2  TO  18 
COLOR  0,  0 

FOR  1  «  1  TO  depth  +  1 

LOCATE  row  +1-1,  column:  PRINT  SFC (widthl) ; 

NEXT  i 
RETURN 

shell_invdct : 

REM  'Load  up  Tfile  and  Shall  to  DCT.EXE 
VIEW  PRINT  18  TO  24 
COLOR  7,  0 

cows  ■  19:  columns  “  1:  widthls  -  79:  depths  »  5:  fores  -  15:  backs  -  4 
CALL  box(rows,  columns,  widthls,  depths,  fores,  backs) 

LOCATE  20,  2:  INPUT  'Type  Filename  to  Save  h2$ 

ZF  h2$  -  THEN  row  ■  7:  column  «  46:  widthl  ■  22:  depth  «  7:  fore  m  15:  back 
“  1:  COSOB  clear_box 

ZF  h2$  -  THEN  GOSOB  display  status_box:  RETURN 
COLOR  7,  0 

OPEN  'tfile'  FOR  OUTPOT  AS  #1 
PRINT  «1,  dmode  +  1 
PRINT  #1,  g« 

PRINT  «1,  hl$ 

PRINT  *1,  xdim 
PRINT  #1,  ydim 

PRINT  #1,  headbits  'headerbits  to  skip  is  sero 

PRINT  #1,  updown  'start  on  first  line 
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PRIM?  #1,  TRAM St 

PRIM?  II,  blockaito 

PRIM?  II,  “IMVBRSE_TRAMSFORM" 

PRIM?  II,  h2l 
PRIM?  II,  thrash 
PRIM?  II,  xonal 
PRIM?  II,  kt 
PRIM?  II,  oxpandxiso 
CLOSE  II 
SHELL  'dot .  axa" 

VIEW  PRIM?:  COLOR  7,  0:  CLS  :  SOSOB  display_atatu*_box 

60S0B  Print  titlo_bar 

RETORM 

10000  S?A?IC  SOB  box  (row,  eoluan,  widthl,  doptb,  (or*,  back) 

10010  0EP1M?  A,  I-L,  P 

10020  K1  “  row:  L  -  ooluan:  j  “  widthl  -  1:  kond  “  doptb  -  1:  idopth  “  doptb 

1:  iforo  -  foro:  ibaok  «  book 

10030  COLOR  iforo,  ibaok 

10040  k  -  0:  jl  -  j  +  1 

10050  FOR  i  -  K1  +  1  TO  K1  +  idopth 

10060  LOCATE  i,  L  +  1:  PRIM?  SPC(j  -  1)  ; 

10070  MEET 

100S0  FOR  1-L+lTOL+j-l 
10090  LOCATE  Kl,  i:  PRIM?  CHR$ (205) 

10100  MEET 

10110  LOCATE  Kl,  L:  PRIM?  CHR|  (201)  :  LOCATE  XI,  L  J :  PRIM?  CHR|(1S7) 

10120  LOCATE  Kl  ♦  kond,  L:  PRIM?  CHRI (200) :  LOCATE  Kl  +  kond,  L  +  j:  PRIM? 
CHR|(188) 

10230  FOR  k-Kl+lIOXlt  kond  -  1 
10240  LOCATE  k,  L:  PRIM?  CHR| (1S6) 

10250  LOCATE  k,  L  +  J:  PRIM?  CHRI (186) 

10270  MEET 

10280  FOR  i-L+lTOL+j-1 

10290  LOCATE  Kl  +  kond,  i:  PRIM?  CHRI (205) 

10300  MEET 
10310  END  SUB 
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The  VESA  Initializer 


•inoludo  <*tdio.h> 
linoludo  <do*.h> 

/•Global*  bogin*/ 

■truot  VGAELOCK 

< 

char  VISAS [4] ; 
int  VBSAV; 
obar  far  *OEMSP; 
long  CAPAB; 
int  far  *MODES; 

Int  TOTMBM; 
char  data [236]; 

)  VS  AD  AT  A; 

void  _ far  *p; 

FILE  *out; 

/•Global*  ond*/ 

/•Main  program  bogin**/ 
main  () 

{ 

int  1,  k; 
union  RIGS  r; 

•tract  SRBGS  ar; 

p-SVGADATA; 
r.h.ah-0x4f; 
r .h.al-OxOO; 

*r  .o*«_FP_SEG (p)  ; 
r . x . di-_FP_OFF (p) ; 
int86x (0x10, tr,ir, car) ; 

1-0; 

k-0; 

vhilo  ( VGADATA. MODES [i]  !>  -1) 

( 

if  ( VSADATA. MODES [1]— 257)  k++; 
if  (VSADATA. MODES [i]— 259)  k++; 
if  (VSADATA. M0DBS[i]— 261)  k++; 
i++; 

> 

out-fopon  C*vo*a.ini", "*") ; 
fprintf (out, "%i",k) ; 
fdoaoall  () ; 

) 

/•Main  program  and**/ 


l 
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The  Display  Processor 


iinoluda  <atdio.h> 
iinoluda  <fontl.h> 
iinoluda  <conio.h> 
iinoluda  <*tring.h> 
iinoluda  <»tdllb.h> 
iinoluda  <io.b> 

idafina  RGB (r , g, b) (0x3F3F3FL  c  ( (long)  (b)  «  16  |  (g)  «  8  |  (r) ) ) 

/•Global*  bagin*/ 

int  widthl.haightl, *,b, oldb,  e,  d«0, i,  j.  k,  xdlm,  ydim; 
int  ouraag.noda, haadar.updown, 11, kl, input_fila; 
ohar  atring(80] , *tringl[80] , buf far [2048] ; 
unalgnad  obar  rad[256] ,blua[256] , graan [256] ; 
unaignad  char  palbuf [256] [3] , op; 
float  bl, cl; 
void  far  *p; 

FILE  ‘inpalatta, *infila, *out; 

/•Global*  and*/ 

/•Main  program  bagina*/ 
aain() 

{ 

/*Raad  in  display  information*/ 
lnfila-fopanPtfila*,  "r")  ; 
facanf (lnflla, -%i", smoda) ; 
f aoanf (infila, "%a" , atring) ; 
facanf (infila, "%a" , atringl) ; 
f aoanf (infila, "%i", Cxdim)  ; 
f aoanf (Infila, "%i",cydim) ; 
f aoanf (infila, "*i" , Chaadar) ; 
f aoanf (infila, "%i" , Cupdown) ; 
input_f i la-_opan (atringl, _0_BIlttRY) ; 

/•Raad  in  palatta*/ 
inpalatta-fopan (string, "r+b") ; 
for  (i-0;K-255;i++) 

{ 

f aoanf (inpalatta, "%c" , top) ; 
radtil-op; 

) 

for  (i-0;K«255;i++) 

< 

f aoanf (inpalatta, "%c". Cop) ; 
graan [i] >op; 

> 

for  (l-0;i<-255;i++) 

{ 

f aoanf (inpalatta, •to", Cep) ; 
blua [i] -cp; 

> 

if  (baadar (-0)  raad (input_fila,buf far , baadar) ; 
for  (i-0;i<-255“i++) 

{ 

palbuf [i] [0]mrad[l)/4; 
palbuf [1] [1] -graan [i]/4; 
palbuf [1] [2]-blua[i]/4; 

) 

/*Sat  vidao  moda*/ 
if  (aoda—1) 
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< 

_a»m  bov  ax, 13b 
aaa  int  lOh 
wldthl-320; 
haight 1-200; 

} 

If  (mod*— 2) 

( 

_aam  oov  ax, 4f02b; 

_aaa  aov  bx,101b; 

aaa  lnt  10b; 
widthl-640 ; 
boight 1-480; 

) 

if  (mod*— 3) 

( 

_aaa  aov  ax, 4f02b; 

_aaa  aov  bx, 103b; 

_aam  lnt  10b; 

wldtbl-800; 

b*lgbtl»600; 

) 

If  (mod*— 4) 

( 

_aam  aov  ax, 4f02b; 

_aam  aov  bx, 105b; 

_aam  lnt  10b; 
vldtbl-1024 ; 
b*ightl-768; 

) 

/*Knabl*  palatt**/ 

j-256; 

k-0; 

p-Spalbuf; 

i-(int)p; 

_aaa  aov  dx, 1; 

_aaa  aov  bx, k; 

_aam  aov  ox, j ; 

_aaa  aov  ax, 1012b; 

_aaa  lnt  lOta; 

/*8tart  at  Bank  0*/ 

_aam  aov  ax, 4f0Sb; 

_aam  aov  bx, 00b; 

_aaa  aov  dx, 0; 

_aam  lnt  lOh; 

d-0; 

a-0; 

oldb-0; 

/*D*fln*  baa*  vidao  aamory  a*gm*nt*/ 
_aam  mov  [ouraag] , 0 A0 00b; 

/♦Diaplay*/ 

for  (l-0;l<-ydim-l;i++) 

{ 

if  (updown  —  1)  11  ■  ydim-l-i; 

•la*  11  -  1; 

_r*ad ( (lnt) Input  fil*, buffar, xdla) ; 

If  (11  <  baigbtlT 
( 

for  (3«0;3<a(xdia-l); j++) 

{ 
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labels: 


kl  -  buffer [J+l]  ; 
_aaa  bov  ax,  j 
_aea  cap  ax,widthl 
_aaa  j g  labels 

_aaa  aov  ax,  j 
_ asm  add  ax, 0 

aaa  ja  label 6 

{ 

_aaa  aov  ax,b 
_aaa  add  ax, xdla 
_aaa  jno  labels 
_asa  jap  1 aba 16 

_aaa  Inc  b 
_asa  jap  1 aba 1 2 


labelfi: 


laball: 


labal2 : 


labal3: 


gatch  ()  ; 


/•The  naxt  group  of  coda  confutes  tha  bank.*/ 

{ 

_aaa  aov  ax, 11 
_aaa  aul  widthl 
_asa  add  ax,  j 
_asa  jnc  laball 
_aaa  lno  dx 
_aaa  aov  d, dx 
_asa  aov  b, ax 

/*  Tha  naxt  two  atataaanta  compara  oldb  to  d*/ 

_ a  am  cap  dx, oldb 

aaa  ja  laba!2 
{ 

_aaa  aov  ax,4f05h; 

_aia  aov  bx, OOh; 

_asa  aov  dx,d; 
aaa  Int  lOh; 


/•Dlsplay  plxal*/ 
oldb-d; 

_aaa  aov  aa, [oursag]; 
_aaa  aov  al.byte  ptr  kl; 
_aaa  aov  bx,b; 

_aaa  aov  as : [bx]  ,  al 

> 

_asa  nop 

> 


/*Go  to  taxt  mods*/ 
_asa  aov  ax, 3 
_asa  int  10b; 

/*Closa  fllaa*/ 
_cloaa  (lnput_fila) ; 
_fclosaall () ; 

) 

/•Main  program  anda*/ 
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The  PCX  Loader 


iinoluda  Cviodef » . h> 
iinoluda  <vicfcta.h> 
iinoluda  <vioerror.h> 
iinoluda  <graph.h> 
iinoluda  <«tdto.h> 

/•Main  program  begin**/ 

Min  () 

< 

PexData  pdat; 
char  *£ name; 
imgdaa  imaga; 

unaignad  char  Paltab[768J; 

int  rcode, vmode, width, langth, moda, no_mode«; 

FILE  * infila; 

/•Read  in  infonoation*/ 
lnfile"fopen(-tfile",  "r")  ; 
f aoanf (Infile, "%i" , tmoda) ; 
f acanf (infila, "%a" , fnama) ; 
f oloaa (infila) ; 
infila-fopan ("vaaa .ini",  "r") ; 
f aoanf (infila. "%1", t no  mod#*) ; 
if  (no  modaa#»0) 

( 

_aatvidaomoda (3) ; 

print f ("Error-Mo  Supar  VGA  Modaal \n*) ; 
print f (“Type  <RET0RH>  to  continua . ') ; 
gatohar () ; 
goto  out; 

> 

if  (pcxinfo(fnaM,  Cpdat)  l-MO  ERROR) 

{ 

printf (“\nError  in  raading  *a”, fnama) ; 
axit (1) ; 

) 

/*<Sat  dimenaione*/ 
widthapdat .ByteaPerLine; 
length-pdat . Ymax-pdat . Ymin+1; 

/•Initialise  imaga  apaea*/ 
saroimgdaa (£ imaga) ; 

/•Allocate  imaga  apaea*/ 

if  (xmallocimage  (tisiage,  width,  length) !«N0  ERROR) 

t 

printf (“\nNot  enough  memory  to  load  %s* , fnama) ; 
axit  (1)  ; 

) 

/*Sat  palatta  pointer*/ 
iatga .palette»Paltab; 


/•load  PCX  iMge  to  extended  memory,  aat  video  moda,  enable  palatta,  and  die- 
play  image*/ 

if  ( loadpcx(f name,  Simage)— NO  ERROR) 

{ 

if  (mode«*l | |moda»«2) 

{ 
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_aaa  aov  ax, 4f02b 
_aam  mov  bx,  101b 
_aaa  int  10b 
vmoda»0xl01; 

) 

if  (aoda«3) 

( 

_a«m  bov  ax, 4f  02h 
_aam  bov  bx, 103b 
_aam  int  10b 
vmoda»0xl03 ; 

) 

if  (aoda»4) 

{ 

_aam  aov  ax, 4f 02b 
_asa  bov  bx, lOSh 

_ atm  int  10b 

vmoda*0xl05; 

) 

■•tvgapalatta (iaaga .palatta) ; 

if  ( (rcoda-viawvaaaavga (vaoda ,0,0, «iaaga) ) -«NO_ERROR)  pauaa () ; 

/*Daallooata  iaaga*/ 
fraaiaaga ( tiaaga) ; 
out: 

/•Go  to  taxt  aoda*/ 

_aatvidaoaoda (3) ; 

/•Cloaa  filac*/ 
fcloaaalK)  ; 

T 

/•Main  program  anda*/ 
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The  PCX  to  Binary  Converter 


finoluda  <vicdefs.h> 
finoluda  <vicfct».h> 
finoluda  Cvioerror ,h> 
finoluda  <graph.h> 
finoluda  <atdio.b> 

/•Global*  bagln*/ 
imgdes  image; 

/•Global*  and*/ 

/•Retrieve  data  from  axtandad  mamory*/ 
char  dgat (indax_x, index_y, width) 
int  indax  x, indax  y; 

{ 

cbar  data; 
int  ta*t; 
int  bandla; 

bandla  -  (int)  image. xhandla; 

test-xmget  row ( (data, handla , indax_x, indax_y , 1 , width) ; 
if  (te*t!«HO_KRROR)  (printf ("dget  %i, %i, %i", handla, index_x, indax_y) ; 
gatchar () ; ) 

raturn (data) ; 

) 

/•Main  program  bagin**/ 
main  () 

( 

PcxData  pdat; 

char  fnama[20] ,palname[20] , imaganama [20] , image_data; 
unsigned  char  Faltab[768]; 
int  rcoda, width, length,!, j; 

FILE  *in£ila, *outpal, * out image; 

/•Clear  screen*/ 

_olaar screen (_GCLE ARSCREEN ) ; 

/•Read  in  information*/ 
infile-fopenptfile”,  "r") ; 
fscanf (infila, "%s" , fnama) ; 
f soanf (infile, "%s" ,palname) ; 
fscanf  (infile,  ”%s",imagename) ; 

/•Open  files*/ 

outpal-f open (palnama, "w+b") ; 

out images f open (image name , "w+b" ) ; 

/•Get  PCX  information*/ 

if  (pcxinf o ( fnama , Spdat ) ! -SO  ERROR) 

( 

print f("\nKrror  in  reading  %s”, fnama) ; 
exit (1) ; 

} 


/•Get  dimensions*/ 
width-pdat  .BytasPerLine; 
length-pda t . Ymax-pdat . Ymin+1 ; 
print fC“\n«D*H  -  %i',width); 
print frXnHBIGHT  -  %i", length); 
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/‘Initialise  iu;<  apace*/ 
seroiagdes (t image)  ; 


/‘Allocate  linage  apace*/ 

if  (xaal lociaage  (t image,  width,  length)  !  -NO_RRROR) 

( 

printf (~\nWot  enough  memory  to  load  lt*,fnaai); 
exit(l) ; 

) 

/‘Set  palette  pointer*/ 
image .palatte-Faltab; 

/‘Load  PCX  image  and  convert  to  binary  image  and  palette*/ 
if  (loadpex(fname, ilmage)»»NO  ERROR) 

{ 

for  (j“0; j<3; j++) 

< 

for  (i*0; i<256; i++) 

< 

fprlntf (out pal, "%c", image .palette [3*i+j] ) ; 

> 

) 

for  (j“0; j<length; j++) 

< 

for  (i*>0;  Kwidth;  1++) 

< 

i mage_dat a-dge t (i,  j, width) ; 
fprintf (out image, ”%c" , image  data) ; 

) 

) 

) 

elae 

{ 

printf ('\nError  in  loading  %a', fnaae) ; 

) 

/‘Cloae  files*/ 

_fcloaeall () ; 

/‘Deallocation  image  space*/ 
freeimage (t image) ; 

/‘Recall  host  program*/ 

_e*eol ('image. exe", HULL, KDLL, HULL) ; 

) 

/‘Main  program  ends*/ 
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The  Image  Printer 


llnoluda  <vicdaf a . h> 
t Include  <viofcta.h> 

(include  <vicarror . h> 
ilncluda  <graph .h> 

(includa  <atdio.h> 
llnoluda  <bio*.h> 

/•Global*  begin*/ 
iagdes  image; 

lnt  vnode, width, langth, 1, mode, prtaod*"l, taat , WIDTH1,  HEIGHT 1; 

lnt  ptr_*xe0,ptr_ay*0, ptr_ax*5*300,ptr_*y*5*300, dpi*300, f ran«2; 

unalgnad  char  palbuf  [256]  [3]  ,  cp; 

float  faetorx,  factory,  factor; 

char  fnaaa[80] ,palnaaa[80] ; 

void  _ far  *p; 

FILE  * Inf 11a; 

FILE  *lnpalatta; 


typadaf  struct  { 
unalgnad  tinaout  ;1; 
unalgnad  : 2 ; 

unalgnad  loarr  : 1; 
unalgnad  salact  si; 
unalgnad  nopapar  : 1; 
unalgnad  : 1; 

unalgnad  notbuay  :1; 
}  prtblts; 


typadaf  union  {unalgnad  i;prtbits  b;  }  prt_atatua; 
/•Globala  and*/ 

/•Sat  vldao  mod** / 
void  Sat_Mode() 

{ 

//320X200 
If  (aode»l)  { 

_ asm  bov  ax,  13h; 

asm  lnt  lOh; 

WXDTH1-320; 

BSXQBT1-200; 
vaoda*0xl3 ; 

) 

//640X480 
If  (aode«2 )  { 

_asm  bov  ax, 4f02h; 

_aam  aov  bx, lOlh; 

_aam  lnt  lOh; 

WXDTH1-640; 

HSIGHT1-480; 

vnode-OxlOl; 

) 

//800X600 
If  (noda-*3)  { 

_aaa  aov  ax, 4f02h; 

_asa  aov  bx, 103h; 

_*am  lnt  lOh; 

WIDTH1-800; 

HX1GHT1-600; 

vaoda*0xl03; 

) 

//1024X768 
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if  (aoda-~4)  { 

_aam  aov  ax, 4f02h; 
_au  aov  bx,  105b; 

aaa  int  10b; 
WIDIH1-1024; 

HEIGHT 1«7 68; 
vmoda»0xl05; 


/"Suable  palette*/ 
void  Sat  Palette () 

< 

int  i,  j,k; 

j«256; 

k*0; 

p-tpalbuf  ; 
i»  (int)p; 

_aam  aov  dx, i; 
_aaa  aov  bx, k; 
_aaa  aov  ox, j; 
_aaa  aov  ax, 1012h; 
aaa  int  10b; 


/"Main  program  begins*/ 
aain() 


/•Read  in  information*/ 
infila»fopan("tfila',  "r")  ; 
faoanf (infila, "%i* , Smode) ; 
f acanf (infila, "%a" , fnama) ; 
faoanf (infila, "%a",palnama) ; 
faoanf (infila, "%i”,Swidth) ; 
faoanf (infila, "%i" , S length) ; 
f oloaa (infila) ; 

pt r_ex»5 * width ; 
ptr_ey«5* length; 
faotorx  ■  1; 
factory  «  1; 
factor  -  1.5; 

if  (ptr_ax  >  2399)  (faotorx  -  2399.0/ (float)ptr_ax; ) 
if  (ptr_ay  >  3149)  (factory  -  3149 .0/ (float) ptr_ay; ) 
if  (faotorx  <  factory)  (factor  ■  faotorx;) 
if  (factory  <  faotorx)  (factor  «  factory;} 

ptr_ax  ■  ptr_ex* factor; 
pt  r_a  y— pt  r_a  y*  f  a  ct  or ; 

/•Read  in  palatta*/ 
inpalattaafopan(palnama, "r+b") ; 
for  (i-0;i<«255;i++) 


faoanf (inpalatta, "%cl  , Sep) ; 
palbuf [i] [0]-cp/4; 

} 

for  (i-0;i<»255;i++) 

( 

faoanf (inpalatta, "%c",  Sep) ; 
palbuf £i ] [lJacp/4; 

> 

for  (i«0; i<-255; i++) 
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{ 

faoanf (inpalette, "*c",  top) ; 
palbuf [i] (2]-cp/4; 

} 

foloae (inpalette) ; 

/•Initial!**  imaga  apace*/ 
seroimgdea (s  image) ; 

/•allocate  imaga  apace*/ 

if  (xmallocimaga (4 imaga, width, langtb) I »K0  ERROR) 

{ 

print f (-\nNot  anough  mamory  to  load  %■" , fname) ; 
axit(l) ; 

) 

/•Load  binary  imaga  and  aat  vidao  mode*/ 
teat-loadbif (fname, £ image) ; 
if  (tast**NO  ERROR)  Sat  Moda(); 

alsa 

{ 

print f  (‘Error  in  LOADBXF ! “ ) ; 
axit(l); 

) 

/•Enable  palette*/ 

Sat_Palatta ( )  ; 

/•Via*  imaga*/ 

viewveaaevga  (vmoda,  0, 0,  £  imaga)  ; 

/•Print  imaga*/ 

printimaga (prtmoda, dpi , t image, ptr_ax, ptr_ay, ptr_ax, ptr_ay, frama) ; 

/•Form  faad*/ 

_a»m  mov  ah, 0 
_aam  mov  al, 12 
_aam  mov  dx, 0 
_aam  int  17h 

/•Reset  taxt  moda*/ 

_aam  mov  ax,  3; 

_a*n  int  10h; 

/•Daallooata  imaga  apaoa*/ 
fraaimaga (< imaga) ; 

> 

/•Main  program  anda*/ 
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iinoluda  <*tdio.h> 

/•Global*  bagin*/ 

int  i, J, xdim, ydim, xup, yup, xdovn, ydown; 
char  filaln[80] , filaout [80] , cp; 

rZUE  *input_flla, *output_fila, *inf ila ,  *outfila; 
/•Global*  and*/ 

/•Main  program  bagina*/ 
main  () 

{ 

/•Raad  in  information*/ 
input_fila-f opan ("tfila",  "r“)  ; 
f aoanf (input_fila, "%1”, fixup) ; 
f aoanf (input_f ila, "%i" , Syup) ; 
f saanf (input_£ ila, "%i " , £ xdovn) ; 
fsoanf (input_flla, "%1" , t ydown) ; 
f aoanf (input_fila, "%»" , filaout) ; 
faoanf (input_fila, "%1", Cxdim) ; 
f aoanf (input_£ila, "%i" , cydim) ; 
f aoanf (input_f ila, "%a" , filain) ; 

/•Opan  filaa*/ 

inf ilaafopan (filain, "r+b") ; 

out fllaafopan (filaout, ”»+b")  ; 

/•Chop  imago*/ 

for  (i«0;i<«ydim-l;i++) 

{ 

for  ( j»0; j<-xdim-l; j++) 

{ 

f aoanf (infila, "%c" , «cp) ; 
if  (3>«xup  it  j<*>xdown) 
if  (i>»yup  it  i<*ydown) 

{ 

fprintf (outfila, ”%c" , cp) ; 

) 

) 

) 

/•Cloaa  filaa*/ 

_fcloaaall () ; 

) 

/•Main  program  and**/ 
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The  Bltpiane  Processor 


•laolud*  <*tdio.h> 
tlaelnd*  <fentl.h> 

(iaeludt  <conio .  h> 

•Include  <strlng.h> 

♦Include  <stdlib.h> 
llaolndt  <io.h> 

tdtfiM  RGB(r,g,b)  (0x3r3F3IX  6  ( (long)  (b)  «  16  |  (g)  «8  I  (r> ) ) 
/•Global ■  bag In*/ 

char  buffer [2048] , atrlng[80] , atringl [80] , string2 [80] , rgbstring[80] ; 
unsigned  char  rad(256] .blue [256] >graaa[256] . ep.palbuf [256] [3] ; 

Int  fulllntanslty , a, d, kl , i , j , k, xdia, ydia, ch3 , hnadar, opdown; 
iat  bltpiane, taap, oldb, our sag, b, widtbl , haigbtl , input_f 11a ; 
void  fax  *p; 

rill  *lnpalatta, * Inf 11a, *out; 

/•Global a  and*/ 

/•Mala  program  baglna*/ 

nain() 

( 

/•Baad  la  information*/ 

Inf ile-f opan ( *tflla* , ■*") ; 
f aeanf (Inf 11a, -%1" , Sch3)  ; 

£ seanf (lnfila, "%a" , airing) ; 
f aeanf (lnfila, "*a" , atringl ) ; 
f aeanf (lnfila, "%i" , India)  ; 
f aeanf (lnfila, "ti" , Cydla) ; 
f aeanf (lnfila, "%i" , (header) ; 
faeanf  (lnfila,  •%!” ,  (npdom)  ; 
f seanf (lnfila, "%i" , Cbitplana) ; 
faeanf (lnfila, atring2) ; 
faeanf (lnfila, "%i" , 4  full intan a it y) ; 
faeanf (Inf Ua, "%s" , rgb string) ; 

/•Opan  filas*/ 

inpet_f ila-_opan (atringl , _0_BI*ART) ; 
lnpalattaafopan (string, "r+b") ; 

if  (stmenp(string2,  ««OS*V**,6)  !-  0)  out  -  fopan(atrlng2,  "w+b")  ; 

/•Head  In  palatta*/ 
for  (i-0;i<-253;i++) 

( 

faeanf  (lnpalatta,  "»c",  iopj  ,* 
rad[i] -op; 

> 

for  (i-0;i<-255;i++) 

{ 

faeanf (lnpalatta, ’le'.tep) ; 
green [i]-cp; 

1 

for  (i*0;i<*255;i++) 

{ 

faeanf (lnpalatta, ”%c",Cep) ; 
blna[i]-ep; 

) 

if  (foil In tana it y  «  2SS) 

( 

rad[0]~0; 

blue[0]«0; 
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(MW[0}aO; 
rad[253]*233; 
9xeaa(255]-2SS; 
blue (255] *255; 

) 


it  (bmuUt  !-0) 

( 

for  (1*1;  i<*haadar;  i++) 

( 

road (Input  file, Sep, 1); 

T 

> 


/••et  video  Mode*/ 
if  (eb3**l) 


an  merr  ax,  13b 
“an  int  10b 
widtbl-320; 
belght 1*200 ; 

) 

it  (eb3— 2) 

I 

_an  mt  ax,«f02b 
an  aov  bx,  101b 
“an  int  10b 
widthl*640; 
baightl— 480; 
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if  (atraoap(rgbatring,  "OtAYSCAL*’,  J)»0) 

< 

toap  m  .299*rad[i]+.387*grann[i]+. 114*blua(i] , 
if  (t«p  >  2S9)  tap  -  235; 

Md(i]«(lat)tMp; 
gr»w[l)«(iiit)ta p; 

blM[i]-(iat)tHp; 

) 

palbof  til  I0]-nd[i]/4; 
ptlbofU]  [l)-gma n [i]/4; 
palbof [i] [2]«bloa[i] /*; 

> 


/•Xnabla  palatta*/ 

3*25*; 

k*0; 

ptpilhnf; 

i*(int)p; 

_aaa  mov  dx,  i; 

_aaai  m err  bx,  k; 

_aaa  mow  ox,  j; 

ant  aor  ax,  1012b; 

~aaa  int  10b; 

/*8ot  starting  bank  nnabac  to  0 •/ 
_aa»  ao*  ax,4fOSb 
_aaa  aov  bx, 00b 

_ an  bov  dx,  0 

as*  int  10b 


a*0; 

oldb*0; 

/•Sat  starting  addraas  to  baginning  of  vidao 
_aaa  aor  [ouraag] , OAOOOb; 

/•Diaplay  with  aanipnlatad  anvironaant*/ 
for  (i«0; i<ydi«;i++) 

{ 

_raad (input_fila, buf for, xdia) ; 
for  (j«0; j<xdia; j++) 

{ 

cp^raffar  ( j+l  ]  ; 
if  ( f ullintanaity  *■  235) 

{ 

if  ( (op  (  bitplana)  (*  0)  k 1*255; 
if  ( (cp  4  bitplana)  **  0)  kl*0; 

) 

if  ( f nllintanaity  !-  255) 

{ 

kl«(cp  C  bitplana); 

) 

if  (atrnenp(atring2, "bOSkVB”, 6)  !■  0) 

C 

fprintf (out, "*c", (ehar)kl); 

I 

if  (i  <  haightl) 


_aaa  aor  ax,  j 
_aaa  exp  ax, width 1 

_ aaa  jg  labal3 

_aaa  nor  ax,  j 
~aaa  add  ax, 0 
~ua  ja  labal6 
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The  File  Subtractor 


ffinoluda  <atdio.h> 
lincluda  <*tring.b> 

•include  <atdllb.b> 

/•Global*  begin*/ 

ohar  atring[80] , atringl [80] , atring2 [80] ; 
unaignad  char  c, cl, c2; 
int  k,kl,k2; 

Pill  *input_f ilal , *input_file2, *out,  *infile; 
/'Global*  and*/ 

/‘Main  program  bagina*/ 
main ( ) 

{ 

/*Raad  in  information*/ 
inf ila-fopan ('tf ila" , "r") ; 
faoanf (infila, "%*" , atring) ; 
faoanf (infila, "%e" , atringl) ; 
faoanf (infila, "%a" , atring2) ; 

/*Opan  filaa*/ 

input_filal»f open (atring, "r+b") ; 
input_fila2afop*n (atringl, "r+b") ; 
out>fopan(atring2, ”w+b") ; 

/•Subtract  filaa*/ 
labal : 

faoanf (input_filal, "%c", sol) ; 
faoanf (input_f ila2, "%e" ,  so2)  ; 
kl  -  cl-128; 
k2  ■  02-128; 
k  -  kl  -  k2; 

if  (k  >  127)  (k  ■  k  -  256;) 
if  (k  <  -128)  (k  -  256+k; } 
c  <■  (char)  (k+128)  ; 
if  (faof (input  filal)««0) 

{ 

fprintf (out, "%e",  c) ; 

) 

if  (faof (input_filal) !-0) 

{ 

goto  laball ; 

} 

if  (faof (input  fila2)  !«0) 

{ 

goto  laball ; 

) 

goto  labal; 

/•Cloaa  filaa*/ 
laball: 

_foloaaall () ; 

> 

/•Main  program  anda*/ 
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The  File  Adder 


iinclude  <stdio.b> 

•include  <string.b> 

•include  <stdlib.h> 

/•Global*  begin*/ 

obar  string [SO] , stringl [80] ,  string2 [80]  ; 
unsigned  char  c,cl,c2; 
int  k, kl, k2; 

FILE  *input_filel, *input_file2, *out, *infile; 
/ ‘Global a  end*/ 

/*Msin  program  begins*/ 

■tin() 

{ 

/•Read  in  information*/ 
inf ile*f open (“tfile" , "r") ; 
f soanf (infile, **»“ , string) ; 
fscanf (infile, "*s", stringl) ; 
fsoanf (infile, "%s”, string2) ; 

/•Open  files*/ 

input_filelefopen (string, "r+b") ; 
input_file2»fopen (stringl, "r+b") ; 
out »f open (string2, "w+b" ) ; 

/•Add  files*/ 
label: 

fscanf (input_filel, "%e", scl)  ; 

fscanf (input_file2, "%e", ic2) ; 

kl  -  cl- 128; 

k2  «  02-128; 

k  «  kl  +  k2; 

if  (k  >  127)  k-k-256; 

if  (k  <  -128)  k-256+k; 

c-  (char)  (k+128) ; 

if  (feof( input  filel)»»0) 

{ 

fprintf (out, "%c",c) ; 

} 

if  (feof (input_filel)  !-0) 

{ 

goto  labell ; 

) 

if  (feof (input  file2)  t-0) 

{ 

goto  labell; 

} 

goto  label; 

/•Close  files*/ 
labell: 
fcloseallO  ; 

> 

/•Main  program  ends*/ 


JJ2 


Appendix  JJ  The  File  Adder 


The  Single  File  Examiner 

tinaluda  <atdio.b> 
iincluda  <atrlng.h> 

Iincluda  <atdilb.h> 

/•Global*  bagin*/ 
float  aua, n; 

unalgnad  cbar  a,c,cl,c2; 

obar  atrlng [80] , atringl [80] , atrlng2 [80] ; 

Int  nl, yblock, xblock,  1.  j,  j  j, xdim, ydlm; 
lnt  blockaixa, k, k2, kl, a [32] [1024], x; 

FILE  *input_filal, *input_fil«2, •lnfila; 

/•Global*  and*/ 

/•Main  program  baglna*/ 
main  () 

( 

/•Road  In  information*/ 
lnflla-fopan ("tflla" , "r") ; 
facanf (lnfila, "%a", atrlng) ; 
f aoanf (lnfila, ”%i" , cxdim) ; 
faoanf (lnfila, "ti" , cydim) ; 
facanf (lnfila, "%i",4blockalxa) ; 

/•Opan  fila*/ 

lnput_filal«fopan (atrlng, "r+b") ; 

/•Examina  fila*/ 
n  ■  0; 
aum  m  0; 

if  (xdlm/blockaixa  !•  (float) xdim/ (float) blockaixa) 

{ 

xblock  ■  xdlm/blockaixa  +  1; 

) 

alaa 

( 

xblook  m  xdlm/blockaixa; 

) 

If  (ydlm/blockalxa  !■  (float) ydlm/ (float )bloakaixa) 

( 

yblock  a  ydlm/blockalxa  +  1; 

) 

alaa 

( 

yblock  a  ydlm/blockalxa; 

) 

for  (nl«l;nl<ayblock;nl++) 

{ 

for  (iaO; i<1024; 1++) 

( 

for  (JaO; j<32;j++) 

< 

•[j] [i]a0; 

> 

} 

for  (1»1; i<ablockaixa; 1++ ) 

{ 

for  ( j»l; j<axdim; j++) 

{ 

facanf (input  filal, "%c", Scl) ; 
»[l][j]-cl;  ' 
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if  (feof (input  filel) ! —0 )  break; 

> 

> 

for  <k«0;k<*xblock-l;k++) 

{ 

for  ( j“l; J<"block#i*e; j++) 

{ 

for  (i*l; i<>blockaize; i++) 

( 

j  j“i +blockai r • *k ; 

print f (“%4i”,a(J] [ jj]-128) ; 

> 

if  ( J ••blookaise) 

{ 

printf ("Vn") ; 

> 

•laa 

{ 

printf ("  Block  %i,%i  \n", nl, k+1) ; 

> 

} 

printf ("\n") ; 
a»getch  ()  ; 

*  -  (int)a; 

if  (z— 27)  goto  labell; 

> 

} 

/•Close  file*/ 
laball: 

_fcloaeall ()  ; 

} 

/•Main  program  enda*/ 
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The  Two  File  Examiner 


•inoluda  <atdio.h> 
ilncluda  <atrlng.h> 
ilncluda  <#tdlib.h> 

/•Global*  bagin*/ 
float  aum,n; 

unalgnad  char  a,c,cl,c2; 

obar  atring[80], atringl [80]; 

lnt  k,k2,kl,z.a[32] [1024] ,b[1024] [32]; 

int  nl, yblock, xblock, 1, J, j j, xdim, ydim, blockalza; 

FILE  *input_f  Hal, *input_fil#2, •infila; 

/•Global#  and*/ 

/•Main  program  baglna*/ 
maln() 

{ 

/•Road  in  Information*/ 
inflla*fopan(“tfila", "r") ; 
faoanf (infila, "%*",#tring) ; 
f acanf (infila, "ti", atringl) ; 
faoanf (infila, "%i", Cxdim) ; 
faoanf (infila, "%i" , tydimj ; 
faoanf (infila, "%i",£blockaiza) ; 

/•Opan  filaa*/ 

input_f ilal-f opan (atring, "r+b") ; 
input_fil#2«fopan( atringl, "r+b") ; 

/•Examina  two  filaa*/ 
n  «  0; 
aum  *  0; 

if  (xdim/blockaiza  !•  (float ) xdim/ (float ) blockalza) 

( 

xblock  »  xdim/blockaiza  +  1; 

} 

alaa 

( 

xblock  *  xdim/blockaiza; 

> 

if  (ydim/blockaiza  !»  (float) ydim/ (float) blockalza) 

< 

yblock  »  ydim/blockaiza  +  1; 

) 

alaa 

( 

yblock  ■  ydim/blockaiza ; 

) 

for  (nl»l;nl<»yblock;nl++) 

{ 

for  (i-0;i<-1024;i++) 

{ 

for  (j»0; J<-32; j++) 

{ 

*133  [i]-o; 

b[j] [i]-0; 

} 

> 

for  (i«l;i<“blockalza;i++) 

[ 


LL2 


Appendix  LL  The  Two  File  Examiner 


for  (3-1;  j<-xdim;  J++) 

< 

faoanf (input_f ilal, -%e",  *ol) ; 
f » can f (input  fila2, *%c", tc2) ; 
a[i] 

b[i] [j]-c2; 

if  (faof (input_filal) !— 0)  braak; 
if  (faof (input  fila2) !-0)  braak; 

) 

> 

for  (k»0 ; k<»xblook-l ; k++) 

( 

for  (J-l;  j<-blockaisa;  j++) 

{ 

for  (i-1; i<-blockaiza; i++) 

t 

j3»i+blockai*a*k; 

printf r%4i/%4i«,a(j] t j j] -128, b [ j] (jj]-128); 

if  (J  l-blockaisa)  printf  ('*\n~)  ; 

alaa  printf (-  Block  %i,%i  \n',nl,k+l); 

) 

printf ('“\n*) ; 
e-gatcb() ; 

*  -  (int)a; 

if  (*  —  27)  goto  laball ; 

) 

) 

/*Cloaa  filaa*/ 
laball: 

_foloaaall ()  ; 

) 

/•Main  program  and**/ 
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The  Image  Paster 


t include  <»tdio.h> 

# include  <conio.b> 

•include  <*tring.b> 

•include  <stdlib.b> 

/•Global*  begin*/ 
int  i , j , k , xdim, ydim; 

char  string [80] ,  atringl [80] ,  string2 [80] ,  top[80] ; 
unsigned  char  cp; 

FILE  *input_filel, *input_f ile2, *infile, *out; 
/•Global*  end*/ 

/*Main  program  begin**/ 
main  () 

< 

/•Read  in  information*/ 
inf ile«f open ("tf lie" ,  "r") ; 
f*can£ (infile, "%•" , string) ; 
f scanf (inf lie, "**", atringl) ; 
f soanf (infile, "%*" , «tring2 ) ; 
f scanf (inf ile, "*i" , fixdim) ; 
f scanf (inf ile, "*i" , tydim) ; 
f scanf (infile, "%*”,top); 

/•Open  files*/ 

input_filel*f open (string, "r+b") ; 
input~file2-fopen (atringl, "r+b") ; 
out-fopen (atring2 , "w+b") ; 

/•Paste  images*/ 
if  (strncmp(top, "TOP" , 3)«>0) 

( 

for  (k»l;k<-ydim;k++) 

{ 

for  ( j-1; j<-xdim; j++) 

( 

f scanf (input_filel, "%c" , *cp) ; 
fprintf (out,  "%cn,  cp) ; 

) 

) 

for  (k«l; k<— ydim;  k++) 

( 

for  (j-1; j<-xdim; j++) 

( 

f scanf (input_file2, "%cn , sep) ; 
fprintf (out, n%c", cp) ,- 
} 

) 

> 

if  (st»cmp(top,  nSID",3)— 0) 

( 

for  (k«l;k<-ydim;k++) 

{ 

for  (j-1; j<-xdim; j++) 

( 

f scanf (input_f ilel, "%c",«cp) ; 
fprintf (out, "%c", cp) ; 

} 

for  ( j-1; j<«xdim; j++) 

( 
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faoanf (input_f 11*2, "%c" , cop) ; 
tprintf (out, "%c", cp) ; 

) 

) 

) 

/*Cloaa  filaa*/ 
fcloaoall () ; 

T 

/•Main  program  anda*/ 
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/‘Souroa  coda  la  from  Th„  n*r*  rnmnrcssinn  annk.  by  Mark  Nelson*/ 

/•It  la  comp Had  with  BITIO.C,  ERRHAND.C,  and  KklN-C.C*/ 

ilnoluda  <stdlo.b> 
ilnoluda  <etdllb.h> 

•include  <string.h> 
ilnoluda  <otypa.h> 
ilnoluda  "bitlo.h” 
ilnoluda  "arrhand . h" 
ilnoluda  “main.h" 

typedef  struct  traa_noda  { 
unalgnad  lnt  count; 
unsigned  lnt  saved_count; 
lnt  child_0; 
lnt  child  1; 

)  NOD*; 

typadaf  struct  coda  { 
unalgnad  lnt  coda; 
lnt  oodajbita; 

}  CODE; 

idaflna  END_OF_S TREAM  256 
ilfdaf  _ STDC _ 

void  count_bytas (  FILE  * input ,  unalgnad  long  *long_counta  ); 
void  aoala_oounta (  unalgnad  long  *long_counts,  NODE  ‘nodes  ); 
lnt  bulld_traa (  NODE  * no das  ) ; 
void  oonvart_traa_to_eoda {  NODE  ‘nodes, 

CODE  ‘aodas, 

unalgnad  lnt  coda_so_f ar , 
lnt  bits,  ~ 

lnt  noda  ) ; 

void  output_counts (  BIT_FILE  ‘output,  NODE  ‘noda a  ); 
void  lnput_oounts (  BIT_FILB  ‘Input,  NODE  ‘nodaa  ); 
void  prlnt_aodal(  NODE  ‘nodaa,  CODE  ‘oodaa  ); 

void  eompraaa_data (  FILE  ‘Input,  BIT_FILE  ‘output,  CODE  ‘codas  ); 
void  axpand_data (  BIT_FILE  ‘Input,  FILE  ‘output,  NODE  ‘nodaa, 
lnt  root_noda  ) ; 
void  prlnt_cbar (  lnt  c  ) ; 

falsa  /*  _ STDC _  */ 

void  oount_bytas ( ) ; 

void  acala_counta ( ) ; 

lnt  bulld_traa () ; 

void  convart_traa_to_coda () ; 

void  output_counta () ; 

void  lnput_counta () ; 

void  print jmodal ( ) ; 

void  compress_data () ; 

void  axpand_data () ; 

void  prlnt_char ( ) ; 

iandlf  /*  _ STDC _  */ 

char  ‘CompressionName  «  "static  ordar  0  modal  with  Huffman  coding'; 
ohar  ‘Oaaga  « 

"infila  outfila  f-d] \n\nSpaclfylng  -d  will  dump  tha  modeling  data\n'; 
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veld  CaepressFile  (  input,  output,  0x90,  argv  ) 

FILE  * input; 

BIT_FILX  * output ; 
int- arge ; 
char  ‘argv [ ] ; 

{ 

unsigned  long  ‘count* ; 

MODI  ‘nodes; 

CODE  ‘codes ; 
int  root_nodo; 

counts  “  (unsignod  long  *)  calloc(  256,  siseof (  unsigned  long  )  ), 
if  (  counts  —  NOLL  ) 

fatal  orror(  “Error  allocating  counts  array\n"  ); 
if  (  (  nodes  «  (MODI  *)  calloo(  514,  siseof (  NODI  )  )  )  —  MOLL  ) 
fatal_«rror(  “Error  allocating  nodes  array\n"  ); 
if  (  (  codes  -  (CODE  *)  calloc(  257,  siseof(  CODE  )  )  )  —  MULL  ) 
fatal_error(  “Error  allocating  codes  arraySn'  ); 
oount_bytes(  input,  counts  ); 
soale_counts (  counts,  nodes  ); 
out put_count » (  output,  nodes  ); 
root_node  -  build_tree (  nodes  ) ; 

convert_tree_to_code (  nodes,  codes,  0,  0,  root_node  ); 
if  (  arge  >  0  tt  streap (  *rgv[  0  ],  *-d"  )  mm  0  ) 
print_aodel (  nodes,  codes  ); 
compress_data (  input,  output,  codes  ); 
free(  (char  *)  counts  ); 
free (  (ohar  *)  nodes  ) ; 
free (  (char  •)  codes  ) ; 


void  SxpandFile (  input,  output,  arge,  argv  ) 
B1T_FIUS  * input; 

FILE  ‘output ; 
int  arge; 
ohar  *argv[] ; 

{ 

MODE  ‘nodes; 
int  root  node; 


if  (  (  nodes  -  (MODE  *)  calloc (  514,  siseof(  MODE  )  )  ) 
f atal_error (  “Error  allocating  nodes  array\n"  ) ; 
input_counts (  input,  nodes  ); 
root_node  «  build_tree (  nodes  ) ; 

if  (  arge  >  0  cs  strcap(  argv [  0  ],  “-d"  )  0  ) 

print_nodel(  nodes,  0  ); 
expand_data(  input,  output,  nodes,  root_noda  ); 
free(  (char  *)  nodes  ); 


—  MOLL  ) 


void  output_counts (  output,  nodes  ) 
BIT_FILE  ‘output; 

MODE  ‘nodes; 

( 

int  first; 
int  last; 
int  next; 
int  i; 


first  •  0; 

while  (  first  <  255  46  nodes [  first  ]. count 
first ++; 

for  (  ;  first  <  256  ;  first  «  next  )  { 
last  m  first  +  1; 
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noxt++  ) 


tot  <  ;  ;  )  { 

for  (  ;  last  <  256  ;  loot++  ) 
if  (  nodoo [  loot  ] .count  »  0  ) 
brook ; 
loot—; 

for  (  noxt  “  loot  +  1;  noxt  <  256 
if  (  nodoo [  noxt  ]. count  0  ) 

brook ; 

if  (  noxt  >  255  ) 
brook; 

if  <  (  noxt  -  loot  )  >  3  ) 
brook ; 

loot  •  noxt; 


if  (  putc(  firot,  output- >filo  )  !■  firot  > 

fotol_orror(  “Error  writing  byto  eounto\n”  ); 
if  (  putc(  loot,  output ->filo  )  !■  loot  ) 

fatol^orrorf  “Error  writing  byto  eounto\n"  ); 
for  {  i  -~firot  ;  i  <■  loot  ;  i++  )  { 

if  (  putc (  nodoo {  i  ]. count,  output->filo  )  !■ 
(int)  nodoo [  i  ] .count  ) 
f otol  orror (  “Error  writing  byto  counto\n'  ) ; 

) 

> 

if  (  puto (  0,  output ->filo  )  !-  0  ) 

fotol_orror(  “Error  writing  byto  counto\n*  ); 

void  input_counto (  input,  nodoo  ) 

BIT_FILE  *input ; 

MODE  ‘nodoo; 

( 

int  firot ; 
int  loot; 
int  i; 
int  e; 

for  (  i  -  0  ;  i  <  256  ;  i++  ) 
nodoo [  i  ] .count  *  0; 

if  (  (  firot  »  gotc(  input ->filo  )  )  «  EOF  ) 
**tol_orror(  “Error  rooding  byto  counto\n"  ); 
if  (  (  loot  “  gotc(  input->filo  )  )  EOF  ) 
fotol_orror (  “Error  rooding  byto  oounto\n"  ); 
tor  (  ;  ;  )  { 

for  <  i  “  firot  ;  i  <»  loot  ;  i++  ) 

if  (  (  c  -  gotc (  input->f ilo  )  )  EOF  ) 
f«tol__orror (  “Error  rooding  byto  count o\n"  ); 

oloo 

nodoo [  i  ] .count  «  (unoignod  int)  c; 
if  (  (  firot  «  gotc(  input ->f ilo  )  )  -«  EOF  ) 

fotol  orror (  “Error  rooding  byto  counto\n'  ); 
if  (  firot  0  ) 
brook; 

if  (  (  loot  “  gotc(  input->f ilo  )  )  mm  EOF  ) 

f otol__orror <  “Error  rooding  byto  counto\n"  ); 

) 

nodoo [  EHD_OF_STREAM  ] .count  -  1; 


fifndof  SBEK_SET 
fdofino  SEEK_SET  0 
•ondif 

void  oount_bytoo(  input,  count o  ) 
FILE  ‘input; 
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unsigned  long  ‘counts; 

{ 

long  lnput_m*rker ; 

Int  c; 

input_aarker  -  ftell  (  Input  ) ; 
vhilo  (  (  o  -  goto (  input  ))  !-  EOF  ) 
counts (  c  ]++; 

taeek(  input ,  input_marker,  SEEK  SET  ); 


void  aeala_counts (  counts,  nodes  ) 
unsigned  long  ‘counts; 

NOOK  ‘nodes; 

{ 

unsigned  long  max  count; 
int  i; 

max_count  «  0; 

for  (  1  -  0  ;  i  <  256  ;  i++  ) 

if  {  counts!  i  J  >  max_oount  ) 
m*x_count  «  counts [  i "] ; 
if  (  max_eount  »»  0  )  { 
counts!  0  ]  ■  1; 

MX  count  m  1; 

) 

mex_oount  •  max_count  /  255; 
max_count  -  mex_oount  +1; 
for  (  i  -  0  ;  i“<  256  ;  i++  )  { 

nodes!  i  ] .count  «  (unsigned  int)  {  counts!  i  )  /  max_oount  ); 
if  (  nodes!  i  ] .count  ■■  0  (t  counts!  i  )  !-  0  ) 
nodes!  i  ]. count  *•  1; 

> 

nodes!  END_OF_STRKAM  ] .count  «  1; 

) 

int  build  tree (  nodes  ) 

NODE  ‘nodes; 

< 

int  next_free; 
int  i; 
int  min_l; 
int  min_2 ; 

nodes!  513  ] .count  -  Oxffff; 

for  (  next_free  -  KND_0F_S TREiM  +  1  ;  ;  next  free++  )  ( 
min_l  »  513;  ” 

mln_2  ■  513; 

for  (  i  “  0  ;  i  <  next_free  ;  i++  ) 

if  (  nodes!  i  f".  count  I-  0  )  { 

if  (  nodes!  i  ]. count  <  nodes!  min_l  } .count  )  { 

min_2  m  min_l; 

min_l  «  i ; 

)  (  nodes!  i  ] .count  <  nodes!  min  2  J .count  ) 

min  2  ■  i; 

> 

if  (  min_2  —  513  ) 
break; 

nodes!  next_free  ] .count  ■  nodes!  nin_l  ]. count 

+  nodes!  min_2  ] .count; 

nodes!  min_l  ] ,ssved_count  “  nodes!  min_l  ]. count; 
nodes!  min_l  ] .count  >0;  ~ 

nodes!  min_2  ) ,ssved_count  m  nodes!  min_2  ]. count; 
nodes!  ain_2  ] .count  ■  0; 
nodes!  next_free  ].child_0  ■  min  1; 
nodes!  next~free  ] .child  1  ■  min~2; 
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) 

n*xt_f r**— ; 

nod*»[  n*xt_fr**  ]  .  aav*d_eount  «  nod** [  n*xt_fr**  J. count; 
r*turn  <  n*xt_f ra*  ) ; 


void  oonv*rt_tr**_to_ood* <  nod**,  ood*a,  cod*_*o_f»r,  bit*,  nod*  ) 
HOOK  *nod*a; 

COOK  ‘ood**; 

unaignad  int  cod*_*o_f*r; 
int  bit*; 
int  nod*; 

{ 

if  (  nod*  <-  END_OF_STREAM  )  { 
aod*a [  nod*  ] .cod*  »  cod*_*o_far; 
cod** [  nod*  ] . cod*_bit*  »  bit*; 
r*turn; 

) 


) 


cod*_*o_f»r  <<«  1; 
bit*++; 

oonv*rt_tr**_to_cod* (  nod**,  cod**,  cod*_*o_f*r,  bit*, 

nod**[  nod*  ] . child_0  ); 

oonv*rt_tr**_to_cod* (  nod**,  oodaa,  cod*_*o  far  |  1, 

bit*,  nod** [  nod*  ] .child  1  ); 


void  print  modal (  nod**,  cod**  ) 

NODS  *nod*a; 

CODE  *cod*a; 

l 

int  i; 

for  (  i  -  0  ;  i  <  513  ;  i++  )  { 
if  (  nod** [  i  ] -*»v*d_count  !«  0  )  { 

printf (  "nod***  ) ; 
print_ch*r (  i  ) ; 

printf (  *  count «% 3d" ,  nod** [  i  ] . **v*d_count  ) ; 
printf (  "  child_0«"  ); 
print_ch»r (  nod** [  i  ] .child_0  ); 
printf (  *  child_l»"  ) ; 
print_ch*r(  nod** [  1  ] .child  1  ); 
if  <  cod**  SS  i  <-  KHD_0F_ST8EJUT )  { 
printf (  *  Huffman  cod**'  ) ; 

Fil*PrintBinary (  atdout,  cod** [  i  J.codm,  cod** [  i  ] .ooda_bita 

); 

} 

printf  (  '“\n"  ); 

) 

) 

} 

void  prlnt_char (  c  ) 
int  c; 

{ 

if  (  c  >«  0x20  fifi  c  <  127  ) 
printf  {  "'tc",  c  ) ; 

•1** 

printf (  *%3d",  c  ); 

) 

void  compr***_data (  input,  output,  cod**  ) 

FILE  ‘input; 

BIT_FILE  ‘output; 

CODE  ‘cod**; 
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< 

int  o ; 

while  (  (  c  *  getc(  input  )  }  !■  EOF  ) 

OutputBita (  output,  (unsigned  long)  codes [  c  } .code, 
codes (  c  ] .code  bits  ); 

Output Bits (  output,  (unsigned  long)  codes [  END  OF  STREAM  ] .code, 
codes [  END  OF  STREAM  ].code  bits  ); 

} 

void  expand_data (  input,  output,  nodes,  root  node  ) 

BITJTILE  * input; 

FILE  ‘output; 

NODE  ‘nodes; 
int  root_node; 

{ 

int  node; 

for  (  ,  ;  )  { 

node  “  root_node; 
do  { 

if  (  InputBit (  input  )  ) 

node  -  nodes [  node  ]. child  1; 

else 

node  “  nodes [  node  ] .child_0; 

)  while  (  node  >  END  OF  STREAM  ) ; 
if  (  node  ■■  END_OF_STRBAM  ) 
break; 

if  (  (  puto(  node,  output  )  )  la  node  ) 

f*t*1_«rr°r(  "“Error  trying  to  write  expanded  byte  to  output'  ); 

) 
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The  Adaptive  Huffman  Encoder 


/‘Souroa  cod*  is  from  Thp  n*ra  fnnmresiinn  Rank,  by  Mark  Nelson*/ 
/•It  is  compiled  with  BITIO.C,  RRRHAND . C,  and  MAIN-C.C*/ 

finoluda  <stdio.h> 
tfinoluda  <stdlib.h> 
finoluda  <atring.h> 
tfinoluda  <otypa.b> 
finoluda  "bitio.h" 
finoluda  "errhand . h" 

ohar  ‘CompressionNama  «  "Adapt ivs  Huffman  coding,  with  ••cap*  ooda 
char  ‘Usage  -  "infile  outfila  [  -d  ]'; 

fdafina  END  OF  STREAM  256 

fdafina  ESCAPE  257 

fdafina  SYMBOL_COUNT  258 

fdafina  NODEJTABLE  COUNT  (  (  SYMBOL  COUNT  *  2  )  -  1  ) 

fdafina  ROOT  NODE  0 

fdafina  MAX  WEIGHT  0x8000 

fdafina  TRUE  1 

fdafina  FALSE  0 


typadaf  struct  traa  { 

int  laaf [  SYMBOL_COUNT  J; 
int  next_frae_node; 
struct  node  { 

unsigned  int  weight ; 
int  parent ; 

Int  child_is_l aaf; 
int  child? 

>  nodes [  NODE_TABLE_COUNT  ]  ; 

}  TREE; 

TREE  Tree; 

fifdef  _ STDC _ 

void  CompreasFile (  FILE  *input,  BIT_FILE  ‘output,  int  argc,  char  *argv[]  ); 
void  ExpandFll* (  BIT_FILE  ‘input,  FILE  ‘output,  int  argc,  char  *ergv[]  ) 1 
void  InitialiseTree(  TREE  ‘tree  ); 

void  BncodeSymbol (  TREE  ‘tree,  unsigned  int  c,  BITJFILE  ‘output  ); 

int  DecodeSymbol (  TREE  ‘tree,  BITJFILE  ‘input  ); 

void  UpdateModel (  TREE  ‘tree,  int  c  ) ; 

void  RebuildTree (  TREE  ‘tree  ) ; 

void  swap_nodes (  TREE  ‘tree,  int  i,  int  j  ); 

void  add_new_node (  TREE  ‘tree,  int  c  ); 

void  PrintTree (  TREE  ‘tree  ) ; 

void  print_codes (  TREE  ‘tree  ) ; 

void  print_code(  TREE  ‘tree,  int  c  ); 

void  calculate_rows (  TREE  ‘tree,  int  node,  int  level  ); 
int  oalculate_coluana (  TREE  ‘tree,  int  node,  int  starting_guess  ); 
int  f lnd_mlnimum_column (  TREE  ‘tree,  int  node,  int  max_row  ); 
void  resaale_oolumns (  int  factor  ) ; 

void  print_tree(  TREE  ‘tree,  int  flrst_row,  int  last_row  ); 

void  print_connecting_lines(  TREE  ‘tree,  int  row  ); 

void  print_node_numbers (  int  row  ) ; 

void  print_weigbts {  TREE  ‘tree,  int  row  ); 

void  print_symbol (  TREE  ‘tree,  int  row  ); 

false 

void  CompreasFile () ; 
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void  ExpandPilaf)  ; 
void  XnitialisaTraeO  ; 
void  EneodaSymbol () ; 
int  OooodoSyabol ( ) ; 
void  UpdataModal () ; 
void  RabuildTraa () ; 
void  awap_nodaa() ; 
void  add_naw_noda ( ) ; 
void  PrintTraa () ; 
void  print_oodaa () ; 
void  print_oodo ( ) ; 
void  calculata_row» ( ) ; 

int  calculata_coluana {) ; 

void  raacala_oolumna () ; 
void  print_traa ( ) ; 
void  print_connaating_linaa () ; 
void  print_noda_numbara () ; 
void  pcint_voighta () ; 
void  prlnt_aymbol () ; 

# and if 

void  CompraaaFila (  input,  output,  argc,  argv  ) 

FILE  * input; 

BIT_FILK  * output; 
int  argc; 
char  *argv[]; 

{ 

int  c; 

Init ializoTroa (  tTraa  ) ; 

whila  (  (  c  ■  gatc(  input  )  )  f-  EOF  )  { 

EncodaSymbol (  tTraa,  c,  output  ) ; 

UpdataModal (  tTraa,  c  ); 

) 

EncodaSymbol (  tTraa,  END_OF_STREAM,  output  ) ; 
whila  (  argc-  >  0  )  { 

if  (  atrompt  *argv,  ~-d~  )  mm  o  ) 

FrintTrae (  tTraa  ) ; 

alaa 

print f (  "Onuaad  argumant :  %a\n",  *argv  ); 
argv++; 

) 

) 

void  ExpandFila(  input,  output,  argc,  argv  ) 

BIT_FILE  * input; 

FILE  ‘output; 
int  argc; 
char  *argv[]; 

( 

int  c; 

InitialiraTraa (  tTraa  ) ; 

whila  (  (  c  *  DacodaSymbol (  tTraa,  input  )  )  !«  END_OF_S TREAM  )  { 
if  (  puto(  o,  output  )  ““  EOF  } 

fatal_arror(  "Error  writing  charactar'  ); 

UpdataModal (  tTraa,  c  ); 

) 

whila  (  argc—  >  0  )  { 

if  (  atrcmp(  ‘argv,  "-d"  )  u  0  ) 

FrintTraa (  tTraa  ) ; 

alaa 

printf(  "Unuaad  argumant:  *a\n",  ‘argv  ); 
argv++; 


Appendix  OO  The  Adaptive  Huffman  Encoder 


003 


void  XnitializeTreef  tree  ) 
TREE  ‘tree; 
f 

int  1; 


-  ROOT_NODE  +  1; 

-  FALSE ; 

=  2; 

-  -1; 

-  END_OF_S?RBAM; 

-  TRUE; 

-  1; 

-  ROOT_NODE ; 

»  ROOT_NODE  +  1; 

-  ESCAPE ; 

-  TRUE; 

-  1; 

-  ROOT  NODE; 

-  ROOT_NODE  +  2; 

-  ROOT  NODE  +  3; 


CrM->noda< [  ROOT_NODE  ]  .child 
trM->nodo[  ROOT_NODB  ] . child_i#_leaf 
trM->nodai[  ROOT_NODE  1  .weight 
trM->nod(i[  ROOT_NODE  ]  .parent 

tree->nodea[  ROOT_NODE  +  1  ] .child 
tree->nodea [  ROOTJIODB  +  1  ] .ehild_ia_leaf 
tree->nodea[  ROOT_NODE  +  1  ] .weight 
tree->nodea[  ROOT_NODE  +  1  ] .parent 
tree->leaf [  END_OF_STR£AM  ] 

tree->nodea [  ROOT_NODE  +  2  ] .child 
tree->nodea [  ROOT_NODE  +  2  ] .child  ia  leaf 
tree->nodea [  ROOT_NODE  +  2  ] .weight 
tree->nodea[  ROOT_NODE  +  2  ] .parent 
tree->leaf[  ESCAPE  ] 

tree - >next_f ree_node 

for  (  1  -  0  ;  1  <  END_OF_STRSAM  ;  i++  ) 
tree->leaf [  i  ]  -  -1; 


void  EncodeSymbol (  tree,  c,  output  ) 

TREE  ‘tree; 
unaigned  int  o; 

BIT_FILB  ‘output ; 

{ 

unaigned  long  code; 
un signed  long  current_bit; 
int  code_aixe; 
int  ourrent_node ; 

code  ■  0; 
eurrent_bit  •  1; 
oode_aize  *  0  ; 

ourrent_node  -  tree->leaf[  c  ]; 
if  (  current_node  -1  ) 

ourrent_node  «  tree->leaf[  ESCAPE  }; 
while  (  current_node  !«  ROOT_NODE  )  { 
if  (  (  current_node  Si)  “  0  ) 
code  | •  current_bit; 
current_bit  <<«  1; 
oode_aize++; 

ourrent_node  -  tree->nodea [  ourrent  node  ] .parent ; 

>; 

Output Bit a (  output,  code,  code  aize  ); 
if  (  tree->leaf [  e  ]  —  -1  )  {“ 

OutputBita(  output,  (unaigned  long)  c,  8  ); 
add_new_node (  tree,  c  ); 


int  DeoodeSymbol (  tree,  input  ) 
TREE  ‘tree; 

BIT_FILE  ‘input; 
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int  currant_noda ; 

int  c; 

currant_noda  m  ROOT_HODK; 

whila  (  ttraa->nodaa [  currant_noda  ] . child_ia_laaf  )  { 
ourrant_noda  m  traa->nodaa[  ourrant_noda  ] .child; 
currant  noda  +»  Inputs it (  input  ) ; 

> 

c  ■  traa->nodaa[  currant  noda  J. child; 

if  (  c  —  ESCAPE  )  { 

c  ■  (int)  XnputBita(  input,  8  ); 
add  nan  noda (  traa,  c  ); 

) 

raturn (  c  ) ; 


void  UpdataModal (  traa,  c  ) 
TREE  *traa ; 
int  c; 

{ 

int  ourrant_noda ; 
int  naw  noda; 


if  (  traa->nodaa [  ROOT_NODE] .waight  —  KAXWEICHT  ) 
RabuildTraa(  traa  ); 
currant_noda  -  traa->laaf[  c  ]; 
whila  (  currant_noda  !■  -1  )  { 

traa->nodaa[  cur rant _noda  ] .waight ++; 
for  (  naw_noda  -  currant_noda  ;  naw_noda  >  ROOT_SODE 
if  (  traa->nodaa[  naw_noda  -  1  ] .waight  >- 
traa->nodaa [  currant_noda  ] .waight  ) 
braak; 

if  (  currant_noda  l«  naw_noda  )  { 

awap_nodaa(  traa,  currant_noda ,  naw_noda  ); 
currant  noda  m  naw  noda; 

) 

currant_noda  -  traa->nodaa [  currantnoda  ] .pa rant; 


naw  noda—  ) 


void  RabuildTraa (  traa  ) 

TREE  *traa; 

{ 

int  1; 
int  j; 
int  k; 

unsignad  int  waight; 
printf (  *R"  ) ; 

j  ••  traa->naxt  fraa  noda  -  1; 

for  (  i  »  j  ;  I  >-  ROOT_NODE  ;  1-  )  { 

if  (  trae->nodaa[  i  ] . chlld_i«_laaf  )  { 
traa->nodas(  33“  traa->nodaa[  i  ]; 

traa->noda« [  j  ] .waight  •  (  traa->nodas[  j  ] .waight  +  1  )  /  2; 


for  (  i  "  traa->naxt  fraa  noda  -  2  ;  j  >■  ROOT_KODE  ;  i  -«■  2,  j—  )  { 
k  “  i  +  1; 

traa->nodaa[  j  ]  .waight  “  traa->noda#[  i  ]  .waight  •>- 

traa->nodaa[  k  ] .waight; 
waight  ■  traa->nodas[  j  ] .waight ; 
traa->nodaa[  j  ] . child_i«_laaf  “  FALSE; 

for  (  k  -  3  +  1  ;  waight  <  traa->nodaa[  k  ] .waight  ;  k++  ) 
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a»anova(  Ctraa->nodaa J  j  ],  ttraa->nodea [  j  +  1  ], 

(  k  -  j  )  *  aizaof (  atruct  nod*  )  ) ; 
traa->nodaa[  k  ]  .might  »  weight ; 
tree->nodea[  k  ] .child  *  i; 
tree->nodea[  k  ] .child  ia  leaf  «  FALSE ; 

) 

for  (  i  -  tree->next_free_node  -  1  ;  i  >«  ROOT_tiODE  ;  i-  )  { 
if  (  tree->nodea[  i  ] ,child_ia_laaf  )  { 
k  “  traa->nodaa[  i  ] .ohildT 
traa->laaf[  k  ]  -  i; 

>  ala*  { 

k  ”  trae->nodea[  i  ] .child; 

traa->nodaa[  k  ] .parant  -  traa->nodaa [  k  +  1  ) .parent  -  i; 


void  awap_nodaa(  traa,  1,  j  ) 

TREE  *traa; 
int  i; 
int  j; 

( 

atruct  noda  tamp; 

if  (  traa->nodaa [  i  ] .child_ia_laaf  ) 

traa->laaf[  traa->nodaa[  i_] .child  ]  -  j; 

alaa  { 

traa->nodaa[  traa->nodaa[  i  ] .child  ] .parant  »  j; 
fcraa->nodaa[  traa->nodaa[  i  ]. child  +  1  ] .parent  *  j; 

if  (  traa->nodaa [  j  ] . child_ia_laaf  ) 

traa->laaf[  traa->nodaa [  j  ] .child  ]  ■  i; 

alaa  { 

traa->nodaa[  traa->nodae[  j  ] .child  ] .parent  -  i; 

^  traa->nodaa [  traa->nodaa [  j  ] .child  +  1  ] .parant  •  i; 

tmmp  m  traa->nodaa [  i  ] ; 
traa->nodaa[  i  ]  -  traa->nodea[  J  ]; 
traa->nodaa[  i  ] .parant  <■  temp. parent; 
tamp. parant  »  traa->nodae[  j  ]. parent ; 
traa->nodaa [  j  ]  -  tamp; 


void  add_naw_noda (  traa,  c  ) 
TREE  *traa; 
int  c; 


int  lightaat_node; 

int  new_noda; 

int  *ero_weight_noda; 

ligbtaat_node  “  traa->naxt_fraa_noda  -  1; 
naw_noda  ■  tree->next_free_node7 
*aro_vaight_nod»  =  traa->naxt_fraa_noda  +  1; 
tree->next_free_node  +*  2; 

traa->nodaa[  naw_noda  ]  -  traa->nodea[  lightaat_noda  ]; 
traa->nodaa[  new_node  ] .parent  ■  lightaat_noda ;~ 
traa->laaf[  traa->nodaa[  naw_noda  ] .child  ]  ■=  new_node; 

traa->nodaa [  lightaat_noda  ] .child  -  new_node; 

traa->noaaa[  lightaat~noda  ] .child_ia_laaf  -  FALSE; 
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tree->nodes[  zero_weight_node  ] .child 
tree->node* [  xero_weight_node  ] . child_is_leaf 
tree->node*[  sero_weight_node  ] .weight 
tree->nodes [  sero_weight_node  ] .parent 
tree->leaf [  c  ]  »  zero  weight  node; 

) 

■tract  row  { 

int  £irst_member ; 
int  count; 

}  rows [  32  ] ; 

■tract  location  { 
int  row; 

int  next_member; 
int  column; 

)  position* [  NODE_TABLB_COUNT  ] ; 

void  PrintTree (  tree  ) 

TREE  *tree; 

{ 

int  i  ; 
int  min; 

print_codes (  tree  ) ; 
for  (  i  -  0  ;  i  <  32  ;  i++  )  { 
rows [  i  ] . count  «  0 ; 
row* [  i  ] .first  member  “  -1; 

) 

calculate_rows (  tree,  ROOT_NODE,  0  ); 
oalculate_columns (  tree,  ROOT_KODE,  0  ); 

min  m  f ind_minimum_column (  tree,  ROOTJKODE,  31  ); 
rescale_columns (  min  ); 
print_tree(  tree,  0,  31  ) ; 

} 

void  print_codea (  tree  ) 

TREE  *tree? 

( 

int  i; 

printf  (  ”'\n'  ); 

for  (  i  -  0  ;  i  <  SYMB0L_C0tJNT  ;  i++  ) 
if  (  tree->leaf [  i  ]  !«  -1  )  { 
if  <  isprint (  i  )  ) 

print f<  *%5c:  ",  i  ) ; 

else 

print f (  ”<%3d> :  ",  i  ); 

printf (  "%5u",  tree->nodes [  tree->leaf[  i  ]  ] .weight  ) ; 
printf  {’■"); 
print_code(  tree,  i  ) ; 
printf (  *\n"  ); 

) 

) 

void  print_code(  tree,  c  ) 

TREE  *tree; 
int  c; 

{ 

unsigned  long  code; 
unsigned  long  current_bit; 
int  code_size; 
int  current_node; 
int  i; 


“  c; 

-  TRUE; 

■  0; 

«  ligbtest_node 
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coda  m  0; 
ourrant_bit  ■  1; 
coda_sixa  «  0; 

currant_noda  «  trss->lsaf [  c  ] ; 
while  (_current_node  !■  ROOT_MODE  )  { 
if  {  current_node  Cl) 
coda  | •  ourrent_bit; 
currant_bit  <<■  1; 

aoda_aise++; 

currant  noda  “  traa->nodea[  currant  noda  ] .par ant; 

>; 

for  (  i  a  0  ;  i  <  code_sixe  ;  i++  )  { 

ourrant_bit  >>«  1; 
if  (  coda  C  currant_bit  ) 
putc (  ' 1 ' ,  stdout  ) ; 

else 

putc (  'O',  atdout  ) ; 

> 

> 

void  caloulata  rows (  traa,  noda,  laval  ) 

TREK  *traa; 
int  noda; 
int  level; 

( 

if  (  rovi [  laval  ] . first_membar  «•-!){ 
row* [  laval  ] . f irat_aaobar  «  noda ; 
rows t  laval  ] .count  a  0; 
positional  noda  ] .row  a  laval; 
positions [  noda  ) .naxtjaaabar  •  -1; 

)  «l«a  ( 

positions [  noda  ] .row  a  laval; 

positions!  noda  ] . naxt_mambar  «  rows!  laval  ] ■ flrst_aamhar ; 
rows!  laval  ] . first_manbar  «  noda; 
rows!  laval  ] .count ++; 

) 

if  (  !traa->nodas [  noda  ] . child_is_lasf  )  { 

oalculsts_row» (  traa,  traa->nodas (  node  ] .child,  laval  +  1  ) ; 
cslculsta  rows!  traa,  traa->nodaa [  noda  J. child  -f  1,  laval  +  1  ) ; 

} 

) 

int  calculata_coliu>ns (  traa,  noda,  start ing_guass  ) 

TREE  *traa; 
int  noda; 

int  start in9_7uass; 

! 

int  naxt_noda; 
int  right_sida; 
int  laft_sida; 

naxt_noda  «  positions!  noda  J .naxt_mambar; 
if  (  naxt_noda  !■  -1  )  { 

if  (  positions!  naxt_noda  ]. column  <  (  start ing_guass  +  4  )  ) 
st art ing_gua ss  «  positions!  next  noda  ]. column  -  4; 

} 

if  (  traa->nodas[  noda  ] . chlld_is_laaf  '  { 

positions!  node  ] .column  “  start ing_guass; 
return (  start ing_gua»s  ); 

) 

right_sida  •  calculata_eolumns (  traa,  traa->nodas[  noda  ] .child,  start- 
ing_guasa  +  2  ) ; 

laft_sida  =  calculata_columns (  traa,  traa->nodas[  noda  ] .child  4-  1, 
right_sida  -  4  ) ; 
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start lng_guass  ■  (  rigbt_aida  ♦  la ft _• Ida  )  /  2; 
positional  noda  ] .ooluan  “  starting_guess; 
raturn (  starting  guaaa  ); 

> 

int  f ind_ainimusi_coluan  (  traa,  noda,  nax_row  ) 

TREE  *traa  ; 
int  noda; 
int  aax  row; 

< 

int  ain_right ; 
int  iain_laft; 

if  (  traa->nodaa [  noda  ] . ohild_ia_laaf  ||  max_row  —  0  ) 
raturn (  positional  noda  ] .column  ); 
auix_row-; 

min_right  -  f  ind_minimum_ooluan  (  traa,  traa->nodaa[  noda  ] .child  +  1, 
max_row  ) ; 

mln_laft  «  f ind_ninimum_oolumn (  traa,  traa->nodaa[  noda  ] .child,  max_row  ); 
if  (  min_right  <  ain_laft  ) 
raturn (  min_right  ) ; 

alaa 

raturn (  min_laft  ) ; 

> 

void  raacala_coluaiaa  (  factor  ) 
int  factor; 

< 

int  i; 
int  nodn; 

for  (  i  -  0  ;  i  <  30  ;  i++  >  { 

if  (  rowa [  i  ] . f irat_maabar  »»  -1  ) 
break; 

noda  m  rowa [  i  ] .fir at  aaabar; 
do  { 

positional  noda  ] .ooluan  -a  factor; 
noda  *  positions  (  nods  ]  . naxt_aajsbar ; 

}  whila  (  noda  I a  -l  ); 

) 

) 

void  print_traa(  traa,  firat_row,  last  row  ) 

TREK  *traa; 
int  first_row; 
int  last_row; 

< 

int  row; 

for  (  row  •  first_row  ;  row  <■  last_row  ;  row++  )  { 
if  (  rowa [  row  ] . f irst_member  “  -1  ) 
break; 

if  (  row  >  firat_row  ) 

print_connaoting_linas (  traa,  row  ); 
print_noda_numbara (  row  ) ; 
print_weights (  traa,  row  ); 
print_symbol (  traa,  row  ); 

} 

) 

lifndef  ALPHANUMERIC 

Idafina  LEFT  END  218 
•define  RIGHT  END  191 
•define  CENTER  193 
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•define  tin  i»6 

•define  VERTICAL  179 


tala* 

•define  LETT  END  '  +' 
•dafin*  RIGHT  END  '+' 
fdaflna  CENTER  '+' 
•define  LINE 
fdaflna  VERTICAL  ' I ' 

•and if 


▼old  print_eonnecting_lin*s (  traa,  row  ) 

TREE  *tr*a; 
int  row; 

int  currant _col; 
int  start_col; 
lnt  *nd_eol; 
int  oantar_ool; 
int  noda; 
int  parent ; 

ourrant_ool  ■  0; 

noda  ■  rows [  row  ] .firatjmembar; 
wbll*  (  noda  !-  -1  )  ( 

st*rt_ool  -  positional  nod*  ]  .column  +  2; 
noda  -  positions [  noda  ] . naxt_aamb*r ; 

*nd_ool  -  positional  noda  ] .column  +2; 
parant  -  tr*a->nod*s[  noda  ] . parant ; 
oent*r_col  -  positional  parant  ].coluan; 
cantar_col  +«  2; 

for  (  ;  curr*nt_col  <  atart_col  ;  curr*nt_eol++  ) 
putc (  '  '  ,  stdout  ) ; 

putc (  LEFTJEND,  stdout  ); 

for  (  curr*nt_ool++  ;  curr*nt_col  <  o*ntar_col  ;  curr*nt_ool++  ) 
putc (  LINE,  stdout  ) ; 
putc (  CENTER,  stdout  ) ; 

for  (  curr*nt_col++;  curr*nt_col  <  and_col  ;  curr*nt_col++  ) 
putc (  LINE,  stdout  ); 
putc (  RIGHT_BND,  stdout  ) ; 
curr*nt_oo 1++ ; 

noda  •  positions [  nod*  ] .next  member ; 

) 

print £ (  *\n"  ) ; 

> 

▼old  print_nod*_numb*rs (  row  ) 
int  row; 

< 

int  curr*nt_col; 

int  noda; 

int  print_eol; 

curr*nt_col  «  0; 

nod*  »  rows[  row  ] .  first_m*mb*r; 
wbil*  (  nod*  I-  -1  )  { 

print_col  «  positions!  nod*  ] .column  +  1; 
for  (  ;  curr*nt_eol  <  print_col  ;  currant_col++  ) 
putc (  '  ' ,  stdout  ) ; 
printf(  ’“%03d",  noda  ); 
curr*nt_col  +■  3; 

noda  «  positions!  noda  ] .n*xt_msmb*r; 
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) 

print f (  *\n*  ); 

> 

void  print  waigbta!  traa,  row  ) 

3KZK  *traa7 

int  row; 

{ 

int  aurrant_ool; 
int  print_eol; 
int  node; 
int  print_*iio ; 
int  noxt_ool ; 
char  buff or [  10  ]; 

curront_ool  ■  0; 

nod*  -  rowa[  row  ] . firat_membar; 
wbila  (  noda  !»  -1  )  { 

print_col  »  poaitiona [  noda  ] .column  +  1; 

•printf (  buffar,  *%u" ,  traa->nodaa [  noda  ] .weight  ); 
if  (  atrlan<  buffar  )  <  3  ) 

•print f(  buffar,  ”*03u",  traa->nodaa [  noda  ] .waigbt  ); 
print_aiza  •  3; 
if  (  atrlan (  buffar  )  >  3  )  { 

if  (  poaitiona  [  noda  ]  .naxt_staabar  “  -1  ) 
print_aica  »  atrlan (  buffar  ) ; 
alaa  { 

naxt_ool  »  poaitiona!  poaitiona!  noda  ] ■ naxt_aaabar  ] . ooluan; 
if  (  (  naxt_ool  -  print_ool  )>  6  ) 
print_aiza  -  atrlan!  buffar  ); 

alaa  { 

at ropy(  buffar,  * — '  ); 
print  aira  -  3; 

} 

) 

> 

for  (  ;  ourrantool  <  print_ool  ;  ourrant_qol++  ) 
putc (  '  ' ,  atdout  ) ; 
printf (  buffar  ) ; 
currant_col  +»  print_aiza; 
noda  *  poaitiona!  noda  ] . naxt  mamba r; 

} 

printf (  ~\n”  ) ; 

) 

void  print_aytabol  (  traa,  row  ) 

IRES  *traa; 
int  row; 

( 

int  ourrant_ool; 
int  print_col; 
int  noda; 

aurrant_ool  ■  0; 

noda  a  rowa [  row  ] .firat_mambar; 
wbila  (  noda  f“  -1  )  { 

if  (  traa->nodaa[  noda  ] .cbild_ia_laaf  ) 
braak; 

noda  ■  poaitiona!  noda  ] .naxt  mambar ; 

) 

if  (  noda  a  -l  ) 
raturn ; 

noda  a  rowa[  row  ] .firat_maabar; 
wbila  (  noda  I-  -1  )  { 

print_ool  a  poaitiona!  noda  J.aoluxan  +  1; 
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for  (  ;  curront_ool  <  print_col  ;  currant_ool++  ) 
putc (  '  ' ,  atdout  ) ; 

if  (  traa->nodaa[  nod*  ] . cbild_ia_laaf  )  { 

if  (  imprint (  traa->nodaa [  nodo  ] .child  )  ) 

printf(  troo->nodoa[  noda  ]  .child  ); 

alaa  if  (  troo->nodaa[  noda  ]. child  ««  BHD  0?_STRB*N  ) 
print f (  “BOB'  ); 

alaa  if  (  traa->nodas[  noda  ]. child  “  ESCAPE  ) 
printf (  *BSC'  ); 

alaa 

printf (  *%02XB* ,  traa->nodaa[  noda  ] .child  ); 

)  alaa 

printf  (  «  *c  ",  VERTICAL  ); 
nurrant_ool  +«  3; 

noda  a  positional  noda  ] . next_®ambar ; 


printf (  m\n” 
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/‘Souro*  cod*  i*  from  Thg  rnmnressinn  Rook.  by  Mark  Nolaon*/ 

/•It  i*  compiled  with  BITIO.C,  KRRHAND .  C,  and  MEIN-C.C*/ 

linclud*  <atdlo.b> 
iincXud*  <*tdlib.h> 
linclud*  “arrband.h" 
linclud*  "bitio.b" 

typ*d*f  atruat  ( 

unaignad  abort  int  lo«_nount; 
unaignad  abort  int  bigb_count; 
unaignad  abort  int  acal*; 

}  SYMBOL ; 

♦ifd*f  _ STDC _ 

void  build  modal (  FILE  * input,  FILE  *output  }; 

void  aoal*_counta (  unaignad  long  counta(]>  unaignad  cbar  acalad_counta [)  ); 

void  build_totala (  unaignad  cbar  acal*d_counta []  ); 

void  count_bytaa(  FILE  *input,  unaignad  long  count* []  ); 

void  output  count* (  FILE  ‘output,  unaignad  cbar  acal*d_counta [ ]  ); 

void  input_counta (  FILE  ‘stream  ) ; 

void  conv*rt_int_to_aymbol (  int  aymbol,  SYMBOL  *a  ); 

void  get_symbol_scala (  SYMBOL  *a  } ; 

int  conv*rt_aymbol_to_int (  int  count,  SYMBOL  ‘a  ); 

void  initialis*_aritbmatic_*naod*r (  void  ); 

void  *naoda__aymbol (  BIT_FILE  *atr«am,  SYMBOL  *s  ) ; 

void  fluah_arithmatic_*ncod*r (  BIT_FILE  ‘stream  ) ; 

abort  int  gat_curr*nt_count (  SYMBOL  »*  ) ; 

void  initialise_aritbmatic_dacoder (  BIT_FILE  ‘stream  ); 

void  ramove_*ymbol_f rom_atr*am (  BIT_FILE  ‘stream,  SYMBOL  ‘a  ); 

lalaa 

void  build_modal () ; 

void  acal*_counta () ; 

void  build_totala () ; 

void  oountjbytaa ( ) ; 

void  output_counta () ; 

void  input_counta () ; 

void  conv*rt_int_to_aymbol <) ; 

void  gat_*ymbol_aoala () ; 

int  convart_aymbol_to_int () ; 

void  initializ*_arithmetic_*ncod*r () ; 

void  *ncoda_#ymbol () ; 

void  £luab_aritbmatic_*ncodar () ; 

abort  int  g*t_curr*nt_count ( ) ; 

void  initializa_aritbmatic_dacod*r () ; 

void  r*mov*_*ytnbo  l_f  r om_*t  r* am  ( ) ; 

landif 

Idafina  END_OF_STREAM  256 
ahort  int  total* [  258  ] ; 

cbar  ‘CompreasionName  -  'Fixed  ordar  0  modal  witb  aritbmatic  coding"; 
char  ‘Usage  “  *in-fil*  out-f il*\n\n" ; 

void  ComprasaFil* (  input,  output,  argc,  argv  ) 

FILE  ‘input; 

BIT_FILE  ‘output; 
int  argc; 
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char  *argv  []  ; 

{ 

int  o; 

SYMBOL  a; 

build_model (  input,  output->file  ); 
initializa_arithmetic_ancodar ( ) ; 

while  (  (  c  ■  g«tc(  input  )  )  !■  EOF  )  { 
convert_int_to_symbol (  o,  £s  ) ; 
encode  symbol (  output,  £s  ); 

) 

convert_int_to_#ymbol (  END_OF_STREAM,  £s  ) ; 
encode_symbol (  output,  £s  ); 
f lush_arithmetic_anooder (  output  ); 
OutputBits{  output,  OL,  16  ); 
while  (  arge—  >  0  )  { 

printf(  'Unused  argument:  %s\n",  *argv  ) ; 
argv++ ; 

) 

) 

void  ExpandFile(  input,  output,  arge,  argv  ) 
BIT_FILE  * input; 

FILE  ^output ; 
int  arge; 
char  *argv[]; 

{ 

SYMBOL  s; 
int  c; 
int  count ; 

input_count s (  input->f ile  ) ; 
initialize  arithmatic_dacoder (  input  ); 
for  (  ;  ;  )  { 
get_symbol_scale (  6b  ); 
count  *  get_current_eount {  £s  ) ; 
c  “  convert_symbol_to_int (  count,  £s  ); 
if  (  c  -»  END_OF_S TREAM  ) 
break; 

remove_symbol_from_stream(  input,  £s  ); 
putc(  (char)  c,  output  ); 

) 

while  (  arge—  >  0  )  { 

print f (  "Unused  argument:  %s\n",  *argv  ); 
argv++ ; 

) 

) 


void  build_model (  input,  output  ) 

FILE  * input ; 

FILE  *output; 

{ 

unsigned  long  counts [  256  }; 
unsigned  char  scaled_counts [  256  ]; 

count_bytes(  input,  counts  ); 
scale_counts (  counts,  scaled_counts  ); 
output_count» (  output,  scaled_counts  ); 
build_totals (  scaled  counts  ) ; 

} 

iifndef  SEEK  SET 
•define  SEEK- SET  0 
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tendif 

void  count_bytes (  input,  counts  ) 

FILS  * input; 
unsigned  long  counts []; 

{ 

long  input_marker; 
int  i; 
int  c; 

for  (  i  ■  0  ;  i  <  256  ;  i++  ) 
counts!  i  ]  •  0; 
input_marker  »  f toll (  input  ) ; 
while  (  (  c  ■  gstc(  input  ))  !■  EOF  ) 

counts!  c  ]++; 

fsssk (  input,  input  marker,  SEEK  SET  ); 

> 

void  scale_counts (  counts,  scslsd_counts  ) 
unsigned  long  counts!]; 
unsigned  ebsr  seeled  counts!] ; 

{ 

int  i; 

unsigned  long  mex_count ; 
unsigned  int  totel; 
unsigned  long  scale; 

mex_count  «  0 ; 

for  (  i  ■  0  ;  i  <  256  ;  i++  ) 

if  (  counts!  i  ]  >  max_count  ) 
max_count  «  counts [  i  ] ; 
scale  *  max_count  /  256; 
scale  »  scale  +  1; 
for  (  i  *  0  ;  i  <  256  ;  i++  )  ( 

scaled_counts [  i  ]  -  (unsigned  char  )  (  counts (  i  ]  /  scale  ) ; 
if  (  scaled_counts  [  i  ]  —  0  it  counts!  i  ]  !«»  0  ) 
scaled_counts !  i  ]  ■  1; 

> 

total  •  1; 

for  (  i  •  0  ;  i  <  256  ;  i++  ) 

total  +«  soaled_counts [  1  ]; 
if  (  total  >  (  32167  -  256  )  ) 

scale  >4; 

else  if  (  total  >  16383  ) 

scale  >2; 

else 

return; 

for  (  i  ■  0  ;  i  <  256  ;  i++  ) 

scaled_counts (  i  ]  /*  scale; 

) 

void  build_totale (  scaled_counts  ) 
unsigned  char  scaled  counts!]; 

( 

int  i; 

totals!  0  ]  ■  0; 

for  (1  =  0;  i  <  END_0F_S THE AH  ;  i++  ) 

totals!  i  +  1  ]  =  totals!  i  ]  +  scaled_counts [  i  ]; 
totals!  END_OF_STREAM  +  1  ]  ■  totals!  END  OF  STREAM  ]  +  1; 

> 

void  output_counts (  output,  scaled_counts  ) 

FILE  *output; 

unsigned  ebar  scalod_counts[J ; 
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int  first; 
int  last; 
int  next; 
int  i; 

first  «  0; 

whila  (  first  <  255  66  scalad_counts [  first  ]  »  0  ) 
first++; 

for  (  ;  first  <  256  ;  first  -  nsxt  )  { 
last  ■  first  +  1; 
for  (  ;  ;  )  ( 

for  (  ;  last  <  256  ;  last++  ) 

if  (  soalsd_count s [  last  ]  «**  0  ) 
brsaJc; 
last—; 

for  (  nsxt  “  last  +  1;  nsxt  <  256  ;  nsxt++  ) 
if  (  scalad_counts [  nsxt  ]  t*  0  ) 
brsak; 

if  (  nsxt  >  255  ) 
brsak; 

if  (  (  nsxt  -  last  )  >  3  ) 
brsak; 

last  “  nsxt; 

>; 

if  (  putc(  first,  output  )  I “  first  ) 

fatal_srror(  "Error  writing  byts  counts\n"  ); 
if  (  putc (  last,  output  )  !■  last  ) 

fatal_srror(  "Error  writing  byts  counta\n“  ); 
for  (  i  «■  first  ;  i  <■  last  ;  i++  )  { 

if  (  putc(  scalad_counts [  i  ],  output  )  !» 
(int)  scalsd_counts [  i  }  ) 
fatal_srror(  "Error  writing  byts  counts\n'  ); 

) 

} 

if  (  putc (  0,  output  )  l»  0  ) 

fatal_srror(  "Error  writing  byts  counts\n'  ); 


void  input_counts (  input  ) 

FILE  * input ; 

{ 

int  first; 
int  last; 
int  i; 
int  c; 

unsignsd  char  scalsd_eounts(  256  ]; 

for  (  i  -  0  ;  i  <  256  ;  i++  ) 
scalsd_counts [  i  J  ■  0; 
if  (  (  first  ■  gstc(  input  )  )  EOF  ) 
fatal_srror<  "Error  rsading  byts  count s\n"  ); 
if  (  (  last  ■  gstc<  input  }  )  EOF  ) 
fatal_srror<  "Error  rsading  byts  counts\n*  ); 
for  (  ;  ;  )  { 

for  (  i  «  first  ;  i  <■  last  ;  i++  ) 

if  (  (  c  *  gatc(  input  )  )  ■»  EOF  ) 
fatal_srror(  "Error  rsading  byts  counts\n"  ); 

slss 

scalsd_counts [  i  ]  «=  (unsignsd  char)  c; 
if  (  (  first  ■  gstc(  input  )  )  “  EOF  ) 
fatal  srror(  "Error  rsading  byts  counts\n"  ) ; 
if  (  first  —  0  ) 
brsak; 

if  (  (  last  ■  gate (  input  )  )  EOF  ) 


Appendix  PP  The  Arithmetic  Order  0  Encoder 


PP5 


fatal  arror (  'Error  reading  byta  counts\n~  ); 

i 

build  totala(  acalad_oounta  ); 

) 

atatlo  unalgnad  abort  lnt  coda;  /*  Tha  praaant  Input  coda  value  */ 

atatlc  unalgnad  abort  lnt  low;  /*  Start  of  tba  currant  coda  range  */ 

atatic  unalgnad  abort  lnt  high;  /*  End  of  tba  currant  coda  range  */ 

long  underflow_bits;  /*  Number  of  underflow  bita  ponding  */ 

void  initialise  arithmetic  encoder () 

{ 

low  ■»  0; 

high  “  Oxffff; 

underflow  bita  -  0; 

} 

void  f lush_arithmetic_encoder (  at roam  ) 

BIT_FXLE  *atream; 

{ 

OutputBit (  stream,  low  £  0x4000  ); 

under f low_bit  a  ++ ; 

while  (  undarf low_bita—  >  0  ) 

OutputBit (  atraam,  -low  £  0x4000  ) ; 

) 

void  convert_int_to_oymbol (  c,  a  ) 
int  c; 

SYMBOL  *a; 

{ 

a->acala  -  totala [  ENDOFSTREAM  +  1  ] ; 
a->low_count  «  total a [  c  ] ; 
a->hlgh_eount  «  totala [  c  +  1  ] ; 

> 

void  got  symbol  scale (  a  ) 

SYMBOL  *s; 

s->saala  -  totals [  END_OF_STREAM  +  1  ] ; 

) 

int  convart_aymbol_to_lnt (  count,  a) 
int  count; 

SYMBOL  *s; 

{ 

int  c; 

for  (  c  ■  END_OF_S TRB AM  ;  count  <  totals [  c  J  ;  c—  ) 

I 

a->high_eount  »  totala [  c  +  1  ] ; 
a->low_count  =  totals [  c  ] ; 
roturn (  c  ) ; 

) 

void  enoode_symbol (  atraam,  a  ) 

B1T_FILB  * stream; 

SYMBOL  *s; 

( 

long  range; 

range  ■  (long)  (  high-low  )  +  1; 
high  *  low  +  (unsigned  abort  int) 

((  range  *  a->high_count  )  /  s->scale  -  1  ); 
low  ■  low  +  (unsigned  short  int) 

( (  range  *  a->low_count  )  /  a->scale  ) ; 

for  (  ;  ;  )  { 

if  (  (  high  s  0x8000  )  »  (  low  £  0x8000  )  )  { 
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OutputBit (  stream,  high  4  0x8000  ) ; 
while  (  underflow_bit*  >  0  )  { 

OutputBit (  itrtao,  -high  4  0x8000  ) ; 
underflow  bit*-; 

) 

} 

elae  if  (  (  low  4  0x4000  )  44  t (  high  4  0x4000  ) )  { 
underflow  bite  +—  1; 
low  4-  OxSfff ; 
high  I-  0x4000; 

)  elae 

return  ; 
low  «-  1; 
high  <<«  1; 
high  |-1; 

) 

> 

ahort  int  get  current  count (  a  ) 

SYMBOL  *•; 

< 

long  range; 
ahort  int  count; 

range  -  (long)  (  high  -  low  )  +  1; 
count  -  (ahort  int) 

((((long)  (  cod*  -  low  )  +  1  )  *  *->*cal*-l  )  /  range  ); 
return (  count  ) ; 

) 

void  initializ*_arithnetic_decoder (  at ream  ) 

BXT_FILB  * at ream; 

{ 

int  i; 
code  -  0; 

for  (  i  »  0  ;  i  <  16  ;  i++  )  { 
code  «»  1; 

code  +»  ZnputBit (  stream  ) ; 

) 

low  -  0; 
high  -  Oxffff ; 

> 

void  rwmove_aymbol_f ron_atrean (  at ream,  a  ) 

BIT_FILE  *atream; 

SYMBOL  *a; 

( 

long  range; 

range  -  (long) (  high  -  low  )  +1; 
high  -  low  +  (unsigned  ahort  int) 

( (  rang*  *  a->high_count  )  /  a->acale  -  1  ) ; 
low  -  low  +  (unsigned  ahort  int) 

( (  range  *  a->low_count  )  /  a->acale  ) ; 

for  (  ;  ;  )  { 

if  (  (  high  S  0x8000  )  —  (  low  4  0x8000  )  )  ( 

} 

elae  if  ((low  4  0x4000)  —  0x4000  44  (high  4  0x4000)  —  0  )  { 

code  0x4000; 
low  4-  0x3f f f ; 
high  |-  0x4000; 

}  elae 

return; 
low  «-  1; 
high  «-  1; 
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cod*  «■  1; 

code  +«■  XnputBit  (  Straus  ) ; 
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/‘Source  coda  i«  from  Thp  n^ra  Cam&cgA&laP  Rnnk .  by  Mark  Kelson*/ 

/‘It  1*  compiled  with  BITIO.C,  KRRHAND.C,  and  MAIN-C.C*/ 

•inciud*  <atdio.h> 
linclud*  <#tdlib.h> 

# inciud*  <string.h> 

# Inciud*  'errhand.h" 
linclud*  'bitio.h" 

typed* f  struct  ( 

unsigned  abort  int  low_count; 
unsigned  short  int  high_eount; 
unsigned  short  int  seal*; 

}  SYMBOL; 

•define  MAXIMUM_SCAL£  16383  /*  Maximum  allowed  frequency  count 

•define  END_OF_S TREAM  256  /*  The  BOF  symbol 

extern  long  under flow_bits;  /*  The  present  underflow  count  in 

/*  the  arithmetic  coder. 

int  ‘totals!  257  ];  /*  Pointers  to  the  257  context  tables 

lifdef  _ STDC _ 

void  initialize_arithmetic_decoder (  BIT_FILE  ‘stream  ); 

void  r*mov*_symbol_from_str*am(  BIT_FILE  ‘stream,  SYMBOL  »s  ) ; 

void  initialize_arithm*tic_encod*r (  void  ) ; 

void  ancode_symbol (  BIT_FILE  ‘stream,  SYMBOL  *s  ) ; 

void  f lush_arithm*tic_#ncod*r (  BIT_FZLB  ‘stream  ) ; 

short  int  g*t_curr*nt_count (  SYMBOL  ‘s  ) ; 

void  initialize_model (  void  ) ; 

void  update_model (  int  symbol,  int  context  ); 

void  oonv*rt_int_to_aymbol (  int  symbol,  int  context,  SYMBOL  *s  ); 

void  get_symbol_acala (  int  context,  SYMBOL  *s  ); 

int  conv*rt_symbol_to_int (  int  count,  int  context,  SYMBOL  *a  ); 

ielse 

void  initialize_arithmetic_d*aodar () ; 

void  r*move_symbol_from_stream() ; 

void  initializ*_arithmetic_encoder () ; 

void  *ncod*_symbol () ; 

void  flush_arithmetic_*ncod*r () ; 

short  int  g*t_curr#nt_count () ; 

void  initialize_model () ; 

void  updat*_aod*l () ; 

void  conv*rt_int_to_symbol () ; 

void  get_symbol_acale ( ) ; 

int  conv#rt_symbol_to_int () ; 

lendif 

char  ‘CompressionName  •  'Adaptive  order  1  model  with  arithmetic  coding'; 
char  ‘Usage  «  'in-fil*  out-f ile\n\n" ; 

void  CompressFile (  input,  output,  arge,  argv  ) 

FILE  ‘input; 

BIT_FILE  ‘output; 
int  arge; 
char  *argv[] ; 

{ 

SYMBOL  a; 
int  c; 

int  context; 
context  «  0; 
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initial isejnodal () ; 
initiali*a_arithnetic_encodar ()  ; 
for  (::)  l 

a  *  gate (  input  ) ; 
if  (  c  —  bo r  ) 

a  -  BND_0F_8TREAM; 

convert_lnt_to_aynbol (  c,  context,  tm  ); 
encode  symbol (  output,  is  ); 
if  (  o-—  BND_0F_S TREAM  ) 
break ; 

update_model (  o,  oontaxt  ) ; 
oontaxt  -  e; 

) 

flush_arithmatio_«noodsr (  output  ); 
put char (  ' \n'  ) ; 
while  (  argo—  >  0  ) 

printf  (  "Unknown  argunant :  %s\n",  *argv++  ); 


void  ExpandFila(  input,  output,  argc,  argv  ) 
BIT_FILE  * input; 

FILE  ‘output; 
int  argc; 
char  *argv[]; 

{ 

SYMBOL  a; 
int  cotint; 
int  c; 

int  oontaxt; 


oontaxt  ■  0; 
initializa_modal () ; 

initializa_aritbmatic_daoodar (  input  ); 
for  (  ;  ;  )  { 

gat_symbol_seala (  oontaxt,  is  ); 
count  «  get_current_count (  is  ) ; 
o  •  convart_symbol_to_int (  oount,  o 
remove_syabol_from_stream(  input,  i 
if  (  o  mm  END_OF_STREAM  ) 
break; 

putc (  (char)  o,  output  ); 
updata_modal (  c,  oontaxt  ) ; 
context  «  c; 


context,  is  ); 
S»  ); 


putcharf  ' \n*  ); 
while  (  argo—  >  0  ) 

printf (  '“Unknown  argunant:  %s\n",  *argv++  ); 


void  initialize_model () 

{ 

int  context; 
int  i; 

for  (  context  -  0  ;  context  <  END  OF  STREAM  ;  context ++  )  { 

totals [  context  ]  -  (int  *)  calloc<  END_OF_STRRAM  -I-  2,  sizeof(int)  ) 
if  (  totals!  context  ]  »  NOLL  ) 

fatal_error(  "Failure  allocating  context  %d",  context  ); 
for  (  i  -"0  ;  1  <-  (  BND_0F_S  TRE AM  +  1  )  ;  i++  ) 
totals!  context  ] [  i  ]  »  i; 


void  update_model (  symbol,  context  ) 
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int  syabol; 
int  context; 

( 

int  i; 

for  (  1  -  ayabol  +  1  ;  1  <-  (  1MD_0F_S TRUM  +  1  )  ;  144  ) 
totalat  contort  ][  1  ]44; 

If  {  totala [  contort  J {  BND_OF_STRKJW  4  1  ]  <  KAXIMOM_SCALE  ) 
return ; 

for  (  1  -  1  ;  1  <-  (  BMD_OV_S THUN  4  1);  144  )  { 
totala[  contort  ][  1  ]  /■  2; 

If  {  totalat  contort  ][  1  ]  <«  totalat  contort  ][  i  -  1  ]  ) 
totalat  contort  ]l  1  ]  «  totalat  contort  ) [  1  -  1  ]  +  1; 


▼old  convort_lnt_to_ayabol (  c,  contort,  a  ) 
int  c; 

Int  aontert; 

SYMBOL  *n; 

{ 

a->aoalo  •  totala  t  contort  ] [  END_OF_S TREAM  4  1]; 
a->low_count  ■  totala [  contort  ] [  c  ] ; 
a->hlgb_oount  «  totala  t  contort  ] [  c  4  1  ] ; 


▼old  get_aymbol_acale (  contort,  a  ) 

Int  contort; 

SYMBOL  *«; 

{ 

a->acalo  -  totalat  contort]!  END_OF_S TREAM  4  1]; 


Int  convort_ayabol_to_lnt (  count,  contort,  a) 

Int  count; 

Int  contort; 

SYMBOL  *a; 

{ 

Int  c; 

for  (  c  ■  0;  count  >”  totala [  contort  ] [  e  4  1  ]  ;  C44  ) 
§ 

a->high_count  -  totala  t  contort  ] (  c  4  1  ] ; 
a->low_count  »  totala [  contort  ] [  c  ] ; 
return (  c  ) ; 


•tatlc  unalgned  ahort  Int  code; 
atatlc  unalgned  abort  int  low; 
atatlo  unalgned  ahort  int  high; 
long  underflow_bita; 

▼old  initialize_arithmatic  encoder () 

{ 

low  ■  0; 

high  -  Orffff ; 

underflow  bit a  *  0; 


▼old  f luah_arithnotic_onoodor (  stream  ) 
BIT  FILS  * stream; 


OutputBit (  Btroam,  low  fi  0x4000  ) ; 

undo r f low_bl t a 44 ; 

whilo  (  underflow_bita—  >  0  ) 
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OutputBit (  atr east,  -low  4  0x4000  ) ; 

OutputBits  (  itnta,  0L,  14  ); 

) 

void  onoodo  symbol (  stream,  s  ) 

BIT  F ILE  «(trsu; 

SYMBOL  *s; 

< 

long  range; 

rongo  -  (long)  (  high-low  )  +  1; 
high  “  low  +  (unoignod  short  int) 

( (  rongo  *  o->high_count  )  /  t->ocolo  -  1  ) ; 
low  -  low  +  (unoignod  short  int) 

( (  rongo  *  s->low_oount  )  /  s->ooolo  ) ; 

*or  (  ;  ;  )  { 

if  (  (  high  4  0x8000  )  »  (  low  (  0x8000  )  )  { 

OutputBit (  st room,  high  4  0x8000  ) ; 
whilo  (  undorf low_bits  >  0  )  { 

OutputBit (  st room,  -high  4  0x8000  ) ; 
underflow  bits—; 

} 

) 

olso  if  (  (  low  t  0x4000  )  t<  ! (  high  4  0x4000  ) )  { 
underflow  bits  -to  1; 
low  4-  0x3f f f ; 
high  |-  0x4000; 

)  else 

return  ; 
low  «-  1; 
high  <<“  1; 
high  |-1; 

) 

) 

short  int  get_ourrent  count (  s  ) 

SYMBOL  *s; 

{ 

long  range ; 
short  int  count ; 

range  -  (long)  (  high  -  low  )  +1; 
count  -  (short  int) 

((((long)  (  code  -  low  )  +  1  )  *  s->scale-l  )  /  range  ); 
return (  count  ) ; 

> 

void  initialize_arithaetic_decoder (  stream  ) 

BIT_FILE  ‘stream; 

{ 

int  1; 
code  -  0; 

for  (  i  -  0  ;  i  <  16  ;  i++  )  ( 
code  «-  1; 

code  4-  InputBit (  stream  ) ; 

) 

low  -  0; 
high  -  Oxffff; 

) 

void  remove_symbol_from  stream (  stream,  s  ) 

BIT  FILE  ‘stream;  ” 

SYMBOL  »s; 

( 

long  range; 
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/•Source  cod*  ia  from  The  Data  rnmnressinr  Hfiok.  by  Hark  Welaon*/ 
/•It  ia  compiled  with  BXTIO.C,  ERRHAHD.C,  and  MAIN-C.C*/ 

I include  <atdio.b> 

•include  <atdiib.h> 

•include  <string.h> 
lincluda  ’"errhand  .h" 

•include  'bitio.h" 

typedef  struct  { 

unsigned  ahort  int  low_count; 
unsigned  ahort  int  high_count; 
unaignad  ahort  int  acala; 

}  SYMBOL  ; 

•define  MAXIMUM  SCALE 
•daf ina  ESCAPE  ~ 

Idafina  DONE 
Idafina  PLUSH 

lifdaf  _ STDC _ 

void  initialize_options (  int  argc,  ohar  **argv  ); 
int  ahaak_cong>raaaion (  FILE  *input,  BIT_FILE  *output  ); 
void  initial ize_modal (  void  ); 
void  updata_aodal (  int  symbol  ) ; 

int  convert_int_to_aymbol (  int  symbol,  SYMBOL  *s  ); 
void  gat__symbol_scale (  SYMBOL  *a  ) ; 
int  convart_aymbol_to_int <  int  count,  SYMBOL  *a  ); 
void  add_character_to_modal (  int  c  ) ; 
void  f luah_modal (  void  ) ; 

void  initialize_arithmatic_decoder (  BIT_FILE  *atraam  ); 
void  remove_symbol_from_stream(  BIT_FILE  *straam,  SYMBOL  *a  ); 
void  initialize_arithmetic_encodar (  void  ); 
void  enaode_symbol (  BIT_FII£  •atraam,  SYMBOL  *a  ) ; 
void  flush_arithmatic_encodar (  BIT_FXLE  *straam  ); 
short  int  gat_currant_count {  SYMBOL  *e  ) ; 


void  initialize_options () ; 
int  check_aompression ()  ; 
void  initial ize_model () ; 
void  updata_modal () ; 
int  convart_int_to_aymbol () ; 
void  get_symbol_acale ( ) ; 
int  convart_symbol_to_int ( ) ; 
void  add_character_to_model() ; 
void  flush_model () ; 

void  initialize_arithmetic_dacoder () ; 
void  ramova_ayabol_from_straam() ; 
void  initializa_arithmatic_ancodar <) ; 
void  encode_symbol () ; 
void  flusb_arithmatic_ancodar () ; 
ahort  int  get_current_count ( ) ; 

landif 


char  •ComprassionName 
ohar  *Usaga 
int  max  ordar 
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**  'Adaptive  ordar  n  modal  with  arithmetic  coding"; 
«  *ln-file  out-fila  [  -o  ordar  ]\n\n"; 

-  3; 


16383  /*  Maximum  allowed  frequency  count  */ 
256  /*  The  escape  symbol  */ 
(•1)  /*  The  output  atraam  empty  symbol  */ 
(-2)  /*  Tt  symbol  to  flush  the  modal  */ 


void  CompreaaFile <  input,  output,  argc,  argv  ) 

FI LB  "input; 

B IT_F ILK  "output; 
int  argc; 
char  »argv[]; 

{ 

SYMBOL  a; 
int  c; 

int  oacapod; 

int  fluah  «  0; 

long  int  t«xt_count  «  0; 

initialize_optiona (  argc,  argv  ); 

initializa_modal {) ; 

initialize  arithmetic_encoder () ; 

for  (  ;  ;  T  { 

if  (  (  ++text_count  £  OxOff  )  ■*»  0  ) 

flush  «  cbec)c_compreaaion {  input,  output  ), 
if  (  !  fluab  ) 

c  =  gate (  input  ) ; 

elae 

c  «  FLUSH; 
if  (  c  mm  EOF  ) 
c  -  DONE; 

do  { 

escaped  -  eonvart_int_to_aymbol (  c,  Ca  ); 
encode_aymbol (  output,  £a  ); 

}  while  (  eacaped  )  ; 
if  (  c  —  DONE  ) 
break; 

if  (  C  »  FLUSH  )  { 

fluah_model ()  ; 
fluab  m  0; 

) 

update_model (  c  ) ; 

add  character  to  aodel (  c  ) ; 

) 

f luab_arithmatic_encoder (  output  } ; 


void  SxpandFile(  input,  output,  argc,  argv  ) 
BIT_FILE  "input; 

FIIiE  "output; 
int  argc; 
char  "argv I] ; 

{ 

SYMBOL  a; 
int  c; 
int  count ; 


init..alize_options  (  argc,  argv  ); 
initialize_model () ; 

initialize_aritbaetic_decoder (  input  ); 
for  (  ;  ;  )  { 
do  { 

get_aynbol_acale (  £a  ) ; 
cotint  ”  get_current_count  (  Ca  ) ; 
c  *  convert_ayabol_to_int (  count,  ca  ); 
remove_symbol_from  at ream (  input,  Ca  ) ; 
}  while  (  c  ~  ESCAPE  T; 
if  (  c  —  DONE  ) 
break; 

if  (  c  !«  FLUSH  ) 

putc (  (char)  c,  output  ); 
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•  la* 


f luah_mod«l () ; 
updata_modal (  c  } ; 
add_ch«ract«r_to  modal  (  c  ) ; 

) 

} 

void  initialisa_options (  argc,  argv  ) 
int  argo ; 
char  *argv[]; 

{ 

while  (  argc—  >  0  )  { 

If  (  atrcmp (  *argv,  "-o"  )  »-  0  )  ( 

argo-; 

max_ordar  “  atol (  *++argv  ) ; 

}  alaa 

prlntf(  "Oknown  argument  on  command  lina;  %a\n",  *argv  ); 

argo-; 

argv++; 

) 

) 

int  chack_aomprassion (  input,  output  ) 

FILE  ‘input; 

BIT_FILE  ‘output; 

static  long  local_input_markar  «  OL; 
static  long  local_output_markar  ■  OL; 
long  total_input_bytas; 
long  total_output_bytaa; 
int  local_ratio; 

total_input_byt*s  =  ftall (  input  )  -  local  input_markar; 
t ot a l_out put_byt a s  •  ftall (  output->fila  ); 
total_output_bytas  -*  local_output_markar; 
if  (  total_output_bytas  ■■  0  ) 
total_output_byt as  *  1; 

local_ratio  -  (int) (  <  total_output_bytas  *  100  )  /  total  input_bytas  ); 

local_input_markar  »  ftall  (  input  ) ; 
local_output_markar  »  ftall (  output->fila  ); 

raturn (  local  ratio  >  90  ); 

) 

typadaf  atruct  { 

unsignad  char  symbol; 
unsignad  char  counts ; 

)  STATS ; 

typadaf  struct  ( 

struct  contaxt  ‘next; 

)  LINKS; 

typadaf  struct  contaxt  { 
int  max_indax; 

LINKS  ‘links ; 

STATS  ‘stats; 

struct  contaxt  ‘lassar  contaxt; 

)  CONTEXT; 

CONTEXT  “contexts; 

int  currant_ordar; 

abort  int  totals t  258  ); 
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char  scoreboard!  256  ]; 


fifdef  _ STDC _ 

void  updata_table<  CONTEXT  *table,  int  symbol  ); 
void  rescale  tabl«<  CONTEXT  ‘table  ); 
void  totalize_table (  CONTEXT  ‘table  ) ; 

CONTEXT  *ehift_to_next_oontaxt (  CONTEXT  ‘table,  int  c,  int  ordar) ; 
CONTEXT  *allocata“next~order_table <  CONTEXT  ‘table, 

int  symbol, 

CONTEXT  *lesser_context  ) ; 
void  recursive_flush(  CONTEXT  *tabla  ); 

falsa 

void  updata_table () ; 
void  rascala_tabla () ; 
void  totalize_table() ; 

CONTEXT  *shift_to_next_aontext () ; 

CONTEXT  *allocate_naxt_order_tabla () ; 

void  recur sive_f lush () ; 

fandif 

void  initialize  modal () 

{ 

int  i; 

CONTEXT  »null_tabla; 

CONTEXT  *control_table; 

currant_ordar  -  aax_ordar; 

contaxts  -  (CONTEXT  “)  cslloc  (  sizeof (  CONTEXT  *  ),  10  ) ; 
if  (  contaxts  “  NULL  ) 

fat*l_arror(  'Failure  II:  allocating  contaxt  tablet'  ); 
contaxts  +»  2; 

null_tabla  -  (CONTEXT  *}  calloc(  aizaof(  CONTEXT  ),  1  ); 
if  (  null_tabla  mm  NULL  ) 

f »tal_arror (  'Failure  #2:  allocating  null  tabla ! '  ); 
null_tabla->max_indax  *  -1; 
contaxts t  -1  ]  -  null_table; 
for  (1*0;  i  <«  max_ordar  ;  i++  ) 

contaxts[  i  ]  «  allocata_naxt_ordor_tabla (  contexts!  1*1  ] , 

0, 

contaxts!  1*1  ]  ); 

free (  (char  *)  null_tabla->stats  ); 
null_tabla->stats  - 

(STATS  *)  calloc (  sizaof(  STATS  ),  256  ); 
if  (  null_tabla->stats  NULL  ) 

f«tal_arror(  'Failure  #3:  allocating  null  tablet'  ); 
null_table->max_lndax  ■  255; 
for  (  i«0  ;  i  <  256  ;  i++  )  ( 

null_table->stats [  i  ] .symbol  -  (unsigned  char)  1; 
null_tabla->stats !  i  ] .counts  “  1; 

) 

control_table  “  (CONTEXT  *)  calloc (  sizeof (CONTEXT) ,  1  ); 
if  (  control_table  mm  NULL  ) 

fatal_error(  'Failure  #4:  allocating  null  tablet'  ); 
control_table->stats  » 

(STATS  »)  calloc (  sizeof (  STATS  ),  2  ); 
if  (  control_table->stats  mm  NULL  } 

fatal_error(  'Failure  15:  allocating  null  tablet'  ); 
contexts!  *2  ]  ■  control_table; 
control__table->max_index  «  1; 
control_table->stats [  0  ] .symbol  -  -FLUSH; 
control_table->stats [  0  ] .counts  -  1; 
control_table->stats [  1  J. symbol  *»  -DONE; 
control_table->atats [  1  ]. counts  »  1; 
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for  (  i  -  0  ;  1  <  256  ;  1++  ) 

scoreboard!  i  ]  “  0 ; 


CONTEXT  *allocate_next_order_table (  table,  aymbol,  leaaer_context  ) 
CONTEXT  *tabla;  " 
int  aymbol ; 

CONTSXT  *leaaer_context; 

{ 

CONTEXT  *new  table; 
int  i; 

unaignad  int  new_aiza; 

for  (  i  ■  0  ;  i  <■>  tabla->max_indax  ;  i++  ) 

if  (  tablo->atata [  i  ] .aymbol  “  (unaignad  obar)  aymbol  ) 
break ; 

if  (  i  >  tabla->max_indax  )  { 
t  abla - >max_indax++ ; 
new_aize  »  aizaof  (  LINKS  )  ; 
naw  aiza  *“  tabla- >max_indax  +  1; 
if  7  tabla->linka  —  NOLL  ) 

tabla->linka  «  (LINKS  *)  calloc(  nav_aiza,  1  ); 

alaa 

tabla->linka  “  (LINKS  *) 

raalloc(  (char  *)  tabla->linka,  naw  aiza  ); 
naw_aiza  -  aizaof (  STATS  ); 
naw_aiza  *”  tabla->max  indax  +  1; 
if  (  tabla->atata  —  NOLL  ) 

tabla->atata  »  (STATS  *)  calloc(  naw_aiza,  1  ); 

alaa 

tabla->atata  m  (STATS  *) 

raalloc(  (char  •)  tabla->atata,  naw_aiza  ); 
if  (  tabla->linka  <—  NOLL  ) 

fatal  error (  "Failure  #6:  allocating  naw  table'  ); 
if  (  table->atata  —  NOLL  ) 

fatal_error(  "Failure  #7:  allocating  naw  tabla'  ); 
tabla->atata [  i  ]. aymbol  «  (unaignad  char)  aymbol; 
tabla->atata (  i  ] .count a  m  0; 

} 

naw_tabla  -  (CONTEXT  *)  calloc (  aizaof (  CONTEXT  > ,  1  ) ; 
if  (  naw_table  mm  NOLL  ) 

fatal_arror(  "Failure  #8:  allocating  naw  table'  ); 
na w_t  abla - >max_indax  m  -1; 
table->linka (  i  ] .next  -  new_table; 
naw_tabla->laaaar_context  “  laaaar_contaxt ; 
return (  naw  tabla  ) ; 


void  updata_modal (  aymbol  ) 
int  aymbol; 

{ 

int  i; 

int  local_order; 

if  (  currant_ordar  <  0  ) 
local_ordar  «  0; 

alaa 

looal_ordar  -  currant_ordar; 
if  (  aymbol  >■  0  )  { 

while  (  local_order  <”  max_ordar  )  { 
if  (  aymbol  >■  0  ) 

updata_tabla (  context* [  local_ordar  ],  aymbol  ); 
local  orda r++; 
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eurrant_ordar  -  max_ordar; 
for  (  1  -  0  ;  i  <  256  ;  1++  > 
scoreboard [  i  ]  -  0; 


void  update  tablet  table,  symbol  ) 

CONTEXT  ‘table; 
int  symbol ; 

{ 

int  i; 
int  indax; 
unsigned  char  tamp; 

CONTEXT  *tanp_ptr; 
unaignad  int  new_sixa; 
indax  >0; 

whila  (  indax  <■  table->max  indax  SC 

t*bl*~>*tata [indax] . aynbol  ! ■  (unaignad  char)  aynbol  ) 
indax++; 

if  (  indax  >  tabla->max_indax  )  ( 
t  abla  -  >nax_indax++  ; 
new_size  -_ai*aof(  LINKS  ); 
naw_aira  »-  tabla->max_indax  +  1; 
if  (  currant_ordar  <  nax_ordar  )  ( 
if  (  table->max_indax  «•  0  ) 

t*bla_>linka  -  (LINKS  *)  calloc(  naw  aixa,  1  ); 

alaa 

table->linka  -  (LINKS  *) 

raalloc (  (char  *)  table->linka,  naw  aisa  ); 
if  (  tabla->linka  —  NOLL  ) 

“Error  #9:  raallocating  tabla  apaoa ! "  ); 
table->linka[  indax  ] .naxt  -  NULL; 

) 

new_size  «  aizaof (  STATS  ); 
naw_aiza  *■  tabla->nax_indax  +  1; 
if  (tabla- >max_indax— F ) 

tabla->atata  «  (STATS  *)  oalloc(  naw  aisa,  1  ); 

alaa 

tabla->atata  -  (STATS  «) 

raalloc (  (ahar  *)  tabla->atata,  naw_aisa  ); 
if  (  tabla->otato  —  NOLL  ) 

fatal_error(  “Error  #10:  raallocating  tabla  apaoa!'  ); 
t4bla->stats [  indax  ]. symbol  m  (unaignad  char)  aynbol; 
table->atats [  indax  ] . counta  •  0; 

) 

i  “  indax; 
whila  (  1  >  0  SC 

tabla->atata[  indax  ] .counts  -»  tabla->«tata f  1-1  ] .counts  ) 
i-;  ' 

if  (  i  !■  indax  )  ( 

tang>  *  tabla->stats [  indax  ] .symbol ; 

tabla->atata [  indax  ]. aynbol  *  tabla->atata [  i  ]. symbol; 
tabla->stats[  i  ]. aynbol  -  temp; 
if  (  tabla->links  !-  NOLL  )  { 

tamp_ptr  -  tabla->linka [  indax  ] .next; 
t*bl*~>linka [  indax  ] .naxt  ■  tabla->linka [  i  ] .next; 
tabla->linka [  i  ] .naxt  »  temp_ptr; 

indax  *  i; 

) 

tabla->atata [  indax  ] .counta++; 
if  (  tabla->stata (  indax  ] .counts  —  255  ) 
raacala_tabla (  tabla  ) ; 


int  oonvart_int_to_aymbol (  c,  a  ) 
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int  c; 

SYMBOL  *•; 

{ 

int  i; 

CONTBXT  *tabla; 

tabla  •  contaxta [  currant_ordar  ]  ; 
totalisa_tabla (  tabla  ) ; 
a->acala  -  totala (  0  ] ; 
if  (  currant_ordar  -2  ) 
o  **  -a; 

for  (  1  <■  0  ;  1  <■  tabla ->max_lndax  ;  i++  )  { 

if  (  c  (int)  tabl«->atata [  i  J . symbol  )  { 
if  (  tabla->atata [  i  J .aounta  “  0  ) 
braak ; 

a->low_count  “  totala (  1+2  J ; 
a->high_oount  “  totala  (  i+1  ] ; 
raturn (  0  ) ; 

) 

) 

a->low_count  »  totala [  1  ] ; 
a->high_count  ■  totala (  0  ] ; 
ourrant_ordar— ; 
raturn (  1  ) ; 

) 

void  gat_aymbol_aoala (  a  ) 

SYMBOL  *a; 

( 

CONTEXT  *tabla; 

tabla  «  contaxta [  currant_ordar  ] ; 
totaliza_tabla (  tabla  ) ; 
a->aoala  ■  totala [  0  ]; 

) 

int  oonvart_aymbol_to_int (  count,  a  ) 
int  count ; 

SYMBOL  *a; 

{ 

int  c; 

CONTEXT  *tabla; 

tabla  -  contaxta [  currant_ordar  ] ; 
for  (  c  ■  0;  oount  <  totala (  c  ]  ;  C++  ) 

I 

a->bigb_count  «  totala [  c  -  1  ]; 
a->low_oount  «  totala (  c  ]  ; 
if  (  c  —  1  )  { 

cur rant_ordar— ; 
raturn (  ESCAPE  ) ; 

} 

if  (  currant_ordar  <  -1  ) 

raturn (  (int)  -tabla->atata [  c-2  J.aymbol  ); 

alaa 

raturn (  tabla->atata [  c-2  ]. symbol  ); 

void  add_charactar_to_modal (  c  ) 
int  c; 

{ 

int  i ; 

if  (  max_ordar  <0  | |  c  <  0  ) 
raturn; 

oontaxta (  aax_ordar  ]  ” 
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shift_to_next_context (  contexts [  msx_order  ],  c,  msx_order  ); 
for  (  i  “  m*x_order-l  ;  i  >  0  ;  i—  ) 

contexts [  i  ]  “  contexts [  14-1  ] ->lesser_oontext; 

) 

CONTEXT  *shift_to_next_context (  tsble,  c ,  order  ) 

CONTEXT  *tsble7 
lnt  c; 
int  order; 

( 

int  i; 

CONTEXT  *new_lesser; 

tsble  “  tsble->lesser_context ; 

if  (  order  “  0  ) 

return {  tsble->links [  0  ] .next  ); 
for  (  i  »  0  ;  i  <»  tsble->msx_index  ;  1++  ) 

if  (  tsble->ststs [  i  ] .symbol  “  (unsigned  chsr)  c  ) 
if  (  tsble->links [  i  ] .next  !-  NULL  } 
return (  tsble->links [  i  ] .next  ); 

else 

bresk; 

new_lesser  -  shift_to_next_context (  tsble,  c,  order-1  ); 
tsble  m  sllocste_next_order_tsble {  tsble,  c,  new_lesser  ); 
return (  tsble  ) ; 

> 

void  rescsle_tsble (  tsble  ) 

CONTEXT  *tsble; 

< 

int  i ; 

if  (  tsble->msx_index  «*=  -1  ) 
return ; 

for  (  i  *  0  ;  i  <«  tsble->msx_index  ;  i++  ) 
tsble->ststs [  i  ] .counts  /»  2; 
if  (  tsble->ststs t  tsble->msx  index  ] .counts  »  0  ts 
teble->links  —  NOLL  )  ( 

while  (  tsble->ststs [  tsble->msx_index  ]. counts  »  0  (i 
tsble->msx_index  >-  0  ) 
tsble->msx_lndex— ; 
if  (  tsble->msx_index  ■—  -1  )  { 

f ree (  (chsr  *)  tsble->ststs  ); 
tsble->ststs  «  NULL; 

)  else  { 

tsble->ststs  -  (STATS  *) 

reslloc(  (chsr  *)  tsble->ststs, 

sizeof(  STATS  )  *  (  tsble ->asx_index  +  1  )  ); 
if  (  tsble->ststs  —  NULL  ) 

fstsl_error(  "Error  #11:  resllocsting  ststs  spsoet'  ); 

> 

> 

} 

void  totslize  tsble (  tsble  ) 

CONTEXT  *tsble; 

{ 

int  i ; 

unsigned  chsr  msx; 

for  (  ;  ;  )  { 

msx  “  0; 

i  ■  tsble - >msx_index  +  2; 

totsls [  i]«0; 

for  (  ;  i  >  1  ;  1-  )  ( 

totsls  [  1-1  ]  m  totsls [  i  ]; 
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if  (  tabl*->stats [  1-2  ]. count*  ) 
if  (  (  curr*nt_ord*r  “«  -2  )  |  | 

scoreboard!  tabl*->stats [  i-2  ].  symbol  3  “  0  ) 
total*[  1*1  1  +■  table->*fcat* {  i-2  ] .count*; 
if  (  tabl*->atats [  i-2  ] .count*  >  max  ) 
max  “  tabl*->*tat* [  i-2  ]. count*; 


if  (  max  “ 
total* [ 


]  -  1; 


totals [  0  1  m  (short  int)  (  256  -  tabla->max_indax  ); 

total*  t  0  ]  *»  tabl*->max  index; 

total*!  0  ]  /»  256; 

totala[  0  ]  /■  max; 

total* [  0  )++; 

total*!  0  ]  +»  total* t  13; 

> 

if  (  totals!  0  3  <  MAXIMUM_SCALE  ) 
break; 

rescale  table (  table  ) ; 

} 

for  (  i  ■  0  ;  1  <  table- >max_index  ;  i++  ) 
if  (table-Xtata [i J  .counts  l»  0) 

scoreboard!  table->*tata [  i  3. symbol  3  ”  1; 


void  recursive  flush (  table  ) 

CONTEXT  *table~ 

( 

int  i; 

if  (  t able -> link*  !«  NOLL  ) 

for  (  i  *=  0  ;  1  <«  table->max_index  ;  i++  ) 
if  (  table->link*  (  1  3  .next  !•*  NULL  ) 

recur*lve_flush (  table->link* [  i  ] .next  ); 
reaoale_table (  table  ) ; 


void  f lushjmodel ( ) 

< 

putc(  'F',  stdout  ); 

recur *ive_f lush (  context* [  0  3  ); 


static  unsigned  short  int  code;  /*  The  present  input  code  value 
static  unsigned  short  int  low;  /*  Start  of  the  current  code  range 

static  unsigned  short  int  high;  /*  End  of  the  current  code  rang* 
long  underf low_bit s ;  /*  Number  of  underflow  bits  pending 


void  initializ*_arithmetic_encod*r () 

{ 

low  ■  0; 

high  “  Oxffff; 

underflow  bits  •  0; 


void  flush_arithm*tic_*ncoder (  stream  ) 
B1TJFIIE  * at ream; 

{ 

OutputBit (  stream,  low  6  0x4000  ); 

under flow_bits++; 

while  (  underf low_bits—  >  0  ) 

OutputBit (  stream,  -low  6  0x4000  ) ; 
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OutputBit a (  atraaa,  OL,  16  ); 

} 

void  anooda_aynbol (  atraaa,  a  ) 

BIT  FILS  * atraaa; 

SYMBOL  *•; 

{ 

long  rango; 

rang*  »  (long)  (  high-low  )  +  1; 
high  -  low  +  (unaignad  ahort  int) 

((  rang*  *  a->high_count  )  /  a->acala  -  1  ); 
low  -  low  -f  (unaignad  abort  int) 

( (  ranga  *  a->low  oount  )  /  a->aoala  ) ; 

tot  (  ;  ;  )  { 

if  (  (  high  6  0x8000  )  —  (  low  6  0x8000  )  )  { 

OutputBit  <  atraaa,  high  6  0x8000  ) ; 
whila  (  undarf low_bita  >  0  )  ( 

OutputBit (  atraaa,  -high  6  0x8000  ) ; 
undarf low_bit a— ; 

) 

} 

alaa  if  (  (  low  6  0x4000  )  66  ! (  high  6  0x4000  ) )  ( 
undarf  low  bita  -fa  1; 
low  6-  0x3 fff ; 
high  |*  0x4000; 

>  alaa 

raturn  ; 
low  <<-  1; 
high  «-  1; 
high  |-1; 

} 

) 

ahort  int  gat_ourrant_count (  a  ) 

SYMBOL  *a; 

( 

long  ranga ; 
ahort  int  oount; 

ranga  -  (long)  (  high  -  low  )  +  1; 
oount  -  (ahort  int) 

((((long)  (  ooda  -  low  )  +  1  )  *  a->aoala-l  )  /  ranga  ) 
raturn (  oount  ) ; 

} 

void  initializa_arithnatio_daaodar (  atraaa  ) 

BIT  FILE  * atraaa; 

{ 

int  i; 
ooda  -  0; 

for  (  i  -  0  ;  i  <  16  ;  i++  )  { 
coda  «-  1; 

coda  +«  InputBit (  atraaa  ) ; 

> 

low  -  0; 
high  -  Oxffff; 

) 

void  raaova_ayabol_froa_atraaa(  atraaa,  a  ) 

BIT_FILE  *atraam; 

SYMBOL  *a; 

( 

long  ranga; 

ranga  -  (long) (  high  -  low  )  +1; 
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high  m  low  +  (unsigned  abort  lot) 

( (  rang*  *  s->high_count  )  /  s~>scalo  -  1  ) ; 
low  “  low  +  (unsignod  short  int) 

((  rango  *  a->low_oount  )  /  s->scala  ); 

for  (  ;  ;  )  { 

if  (  (  high  t  0x8000  )  —  (  low  t  0x8000  )  )  { 

) 

•Iso  if  ((low  s  0x4000)  «  0x4000  St  (high  t  0x4000)  —  0  )  ( 
cods  "~m  0x4000; 
low  4-  0x3fff; 
high  |»  0x4000; 

)  also 

return ; 
low  <<»  1; 
high  «-  1; 
high  (■  1; 
cods  <<«  1; 

coda  +»  InputBit (  stream  ) ; 

} 

> 
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The  Huffman  Decoder 

/•Source  cods  la  from  Th*  Data  rnmnrpssior.  Book.  by  Mark  Nelaon*/ 

/•It  ia  comp Had  with  BITIO.C,  ERRHAND.C,  and  MAIN-E.C*/ 

iinoluda  <atdio.h> 
iincluda  <atdllb.h> 

Iincluda  <atring.h> 

Iincluda  <ctypa.h> 
iinoluda  "bitio.h" 
iincluda  "errhand.h' 
iinoluda  "main .h' 

typadaf  atruct  trea_node  { 
unsigned  int  count; 
unaignad  int  aavad  count; 
int  ohild_0; 
int  child_l; 

}  NODE; 

typadaf  atruct  code  { 
unaignad  int  coda; 
int  codejbits; 

)  CODE; 

idafina  END_OF_STREAM  256 
iifdaf  _ STDC _ 

void  count_bytaa (  FILE  ‘input ,  unaignad  long  *long_counta  ); 
void  acala^counta (  unaignad  long  *long_counta,  NODE  *nodaa  ); 
int  build_traa (  NODE  ‘nodes  ) ; 
void  convert_tree_to_code (  NODE  ‘nodes, 

CODE  * coda a, 

unaignad  int  coda_ao_far, 
int  bits, 
int  noda  ) ; 

void  output_counta (  BIT_FILE  ‘output,  NODE  ‘nodaa  ); 
void  input_counta (  BITJFILE  ‘input,  NODE  ‘nodaa  ); 
void  printjmodal (  NODE  ‘nodaa,  CODE  ‘codas  ); 

void  compraas_data (  FILE  ‘input,  BXT_FXLE  ‘output,  CODE  ‘codas  ); 
void  axpand_data (  BITJFILE  ‘input,  FILE  ‘output,  NODE  ‘nodaa, 
int  root_node  ) ; 
void  print_char (  int  c  ) ; 

falsa  /*  _ STDC _  */ 

void  oount_bytea () ; 

void  acala_counta () ; 

int  build_traa () ; 

void  convert_tree_to_code () ; 

void  output_counts () ; 

void  input_oounta () ; 

void  printjmodal ( ) ; 

void  aompress_data () ; 

void  expand_data() ; 

void  print_char ( ) ; 

fandif  /*  _ STDC _  */ 

char  ‘ComprassionName  m  "static  ordar  0  modal  with  Huffman  coding'; 
char  ‘Daaga  « 

"infila  outfila  [-d] \n\nSpacifying  -d  will  dump  tha  modaling  data\n'; 
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void  Coa^ressFile (  input,  output,  arge,  argv  ) 

FIXJt  *  input; 

BI?_FILE  ‘output; 
int  arge; 
cbar  ‘argv [ ] ; 

{ 

unsigned  long  ‘counts; 

NODE  ‘nodos; 

CODS  ‘codas; 
int  root_nodo ; 

counts  -  (unsigned  long  *)  cslloe (  256,  slseof(  unsigned  long  )  >; 
if  (  counts  mm  MOLL  ) 

f*t*l_error(  "Error  allocstlng  counts  array\n~  ) ; 
if  (  (  nodes  «  (NODE  *)  oslloc (  514,  siteof(  NODE  )  )  )  mm  win.  ) 
f4t*l_*rror(  “Error  allocstlng  nodes  array\n"  ) ; 
if  (  (  codes  “  (CODE  *)  oslloc (  257,  siseof(  CODE  )  )  )  —  NULL  ) 
f*fc*l_error(  “Error  sllocsting  codes  array \n”  ); 
count_bytes (  input,  counts  }; 
scsle_counts (  counts,  nodes  ); 
output_eounts (  output,  nodes  ); 
root_node  ■  build_trea (  nodes  ) ; 

convert_tree_to_eode (  nodes,  codes,  0,  0,  root  node  ); 
if  (  arge  >  0  (1  strcmp(  argv[  0  ],  *-d*  )  mm  o  ) 
print_model (  nodes,  codes  ); 
compres»_data (  input,  output,  codes  ); 
free (  (char  *)  counts  ); 
free (  (char  •)  nodes  ); 
free (  (char  *)  codes  ); 


void  BxpandFile (  input,  output,  arge,  argv  ) 

BITJFILE  ‘input; 

FILE  ‘output; 
int  arge; 
char  *argv[]; 

NODE  ‘nodes; 
int  root_node; 

if  (  {  nodes  -  (NODE  *)  oslloc  (  514,  siseof(  NODE  )  )  )  —  HtJLL  ) 
f*f4l_«rr°r{  “Error  allocating  nodes  array\n"  ); 
lnput_oounts (  input,  nodes  ); 
root_node  «  build_tree <  nodes  ) ; 

if  (  arge  >  0  ((  strcmp(  argv (  0  3,  “-d"  )  mm  o  ) 
printjaodel  (  nodes,  0  ); 
expand_data (  input,  output,  nodes,  root  node  ); 
free (  (char  *)  nodes  );  ~ 


void  output_counts (  output,  nodes  ) 

BIT_FILE  ‘output ; 

NODE  ‘nodes; 

{ 

int  first; 
int  last; 
int  next; 
int  i; 

first  «  0; 

Nhile  (  first  <  255  ts  nodes (  first  ] .count  mm  0  ) 
first ++; 

for  (  ;  firet  <  256  ;  first  ■  next  )  { 
last  “  first  +  1; 
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for  (  ;  ;  )  { 

for  (  ;  laat  <  256  ;  last++  ) 
if  (  nodaa [  last  ]. count  mm  0  ) 
break; 
last— ; 

for  (  next  »  laat  +  1;  next  <  256  ;  next++  ) 
if  (  nodaa [  naxt  ] .count  !•  0  ) 
break ; 

if  (  naxt  >  255  ) 
break; 

if  (  (  naxt  -  laat  )  >  3  ) 
break; 

laat  “  naxt; 

>; 

if  (  putc (  firat,  output->fila  )  firat  ) 

fatal_arror(  "Error  writing  byte  counta\n"  ); 
if  (  putc(  laat,  output ->fila  )  >»  laat  ) 

fatal_error(  “Error  writing  byte  counta\n"  ); 
for  (  i  «  firat  ;  i  <m  laat  ;  i++  >  { 

if  (  putc(  nodaa [  i  ] .count,  output->file  )  t - 
( int )  nodaa [  i  ] . count  ) 
fatal_error (  “Error  writing  byte  counta\n"  ); 

) 

> 

if  (  putc(  0,  output->fila  )  !»  0  > 

fatal_arror(  “Error  writing  byte  counta\n"  ); 

) 

void  input_counta (  input,  nodaa  ) 

BIT_FILE  ‘input ; 

NODE  ‘nodaa; 

( 

int  firat ; 
int  laat; 
int  i; 
int  c; 

for  (  i  -  0  ;  i  <  256  ;  i++  ) 
nodaa [  i  ] . count  •  0  ; 

if  (  (  firat  -  getc(  input->fila  )  )  »«  EOF  ) 
fatal_arror(  “Error  reading  byte  count a \n"  ) ; 
if  (  (  laat  «  gate (  input->f ila  )  }  »  EOF  } 
fatal_arror(  “Error  reading  byte  counta\n“  ); 
for  (  ;  ;  )  { 

for  (  i  “  firat  ;  i  <«  laat  ;  i++  ) 

if  (  (  c  «  getc(  input->fila  )  )  EOF  ) 
fatal_error(  “Error  reading  byta  count a \n"  ); 

alaa 

nodaa  [  i  ]  .count  <■  (unsigned  int)  o; 
if  (  (  firat  =  getc(  input->fila  )  )  “  EOF  ) 

fatal_arror(  “Error  reading  byte  counta\n"  ); 
if  (  firat  —  0  ) 
break; 

if  (  (  laat  *>  gatc(  input->fila  )  )  mm  EOF  ) 

fatal_error(  “Error  reading  byte  counta\n"  ); 

) 

nodaa (  END_OF_STREAM  ]. count  -  1; 

) 

#ifndaf  SEEK_SET 
*daf ina  SEEK_SET  0 
#andif 

void  count_bytea (  input,  counts  ) 

FILE  ‘input; 
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unsigned  long  ‘counts; 

{ 

long  input_Mrker; 
int  c; 

inputjesrker  -  ftell  (  input  )  ; 
while  <  (  o  -  getc (  input  ))  1“  SOP  ) 

oounts  [  c  ]++; 

f seek (  input,  input_merker,  SEEK_SET  ) ; 


void  scsle_eounts (  oounts,  nodes  ) 
unsigned  long  ‘counts; 

NODS  ‘nodes ; 

{ 

unsigned  long  m*x_count ; 
int  i; 

msx  count  »  0 ; 

for” (  1  -  C  ;  i  <  256  ;  i++  ) 

if  (  counts [  i  ]  >  max_oount  ) 
m*x_count  «  counts  [  i  ] ; 
if  (  max_eount  ■■  0  )  { 
counts[  0  ]  ■  1 ; 
msx  count  ■  1; 

) 

mxx_count  ■  msx_count  /  255; 
smx  count  “  mx  count  +  1; 
for- (  i  -  0  ;  i"<  256  ;  i++  )  { 

nodes!  i  ] -count  “  (unsigned  int)  (  counts!  i  ]  / 
if  (  nodes!  i  ] .count  «■>  0  £6  counts!  i  )  !“  0  ) 
nodes!  i  ] .count  «  1; 


count  ) 


nodes!  END_OF_STRKAM  ]  .count  -  1; 

) 

int  build_tree(  nodes  ) 

MODE  ‘nodes; 

{ 

int  next_free; 
int  i; 
int  min_l ; 
int  mln_2  ; 

nodes!  513  J. count  -  Oxffff; 

for  (  next_free  -  EMD_OF_S TRSAM  +  1  ;  ;  next_free++  )  ! 
min_l  »  513; 
min_2  ■  513; 

for  (  i  -  0  ;  i  <  next_free  ;  i++  ) 

if  (  nodes!  i  ]. count  0  )  { 

if  (  nodes!  1  ]. count  <  nodes!  min_l  ] .count  )  { 
min_2  «  min_l ; 
min_l  mi; 

)  else  if  (  nodes!  i  J. count  <  nodes!  ®An_2  J. count  ) 
ain  2  ■  i; 


if  (  s»in_2  —  513  ) 
break; 

nodes [  next_f ree  ] . count  “  nodes [  min_l  } . count 

+  nodes!  min_2  ]  .count; 

nodes!  ain_l  ] .saved_count  -  nodes!  min_l  ]. count; 
nodes!  min_l  ] .count  >0; 

nodes!  min_2  ] . saved_oount  «  nodes!  ain_2  ] .oount; 
nodes!  min_2  ] .count  “  0; 
nodes!  next_free  ] .child_0  «*  min_l; 
nodes!  next_free  ] . child_l  «  min_2 ; 
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naxt_fraa— ; 

nodaa [  n«xt_f r««  ] .  aavad_oount  *  nodaa (  naxt_fraa  ] .count; 
raturn (  naxt_f raa  ) ; 


▼old  oonvart_traa_to_ooda (  nodaa,  coda a ,  ooda__ao_far,  bits,  noda  ) 
NODE  ‘nodaa ; 

CODE  ‘oodaa; 

unaignad  int  coda_ao_far; 
int  bita; 
int  noda; 

< 

if  (  noda  <-  END_OF_S TRE  AM  )  { 
oodaa [  noda  ] .coda  *  coda_ao_far; 
oodaa [  noda  ].eoda_bita  -  bita; 
raturn; 

> 

ooda_ao_far  «•  1; 
bita++; 

oonvart_traa_to_coda (  nodaa,  oodaa,  eoda_ao_far,  bita, 

nodaa [  noda  ].child__0  ); 

oonvart_traa_to_coda (  nodaa,  oodaa,  ooda_ao_far  |  1, 

bita,  nodaa [  noda  J.ehild_l  ); 


void  print_modal <  nodaa,  oodaa  ) 

NODE  ‘nodaa; 

CODE  ‘codaa; 

{ 

int  i; 

for  <  i  *  0  ;  i  <  513  ;  i++  )  { 
if  (  nodaa (  i  ] .aavad_count  !«  0  )  { 
print  f  (  '"noda-"  ); 
print_char {  i  )  ; 

printf(  '  count «%3d",  nodaa [  i  ] . aavad_count  ); 
printf (  *  child_0“"  ) ; 
print_cbar(  nodaa [  i  ] .child  0  ); 
printf (  *  ehlld_l-"  ) ; 
print_cbar (  nodaa [  i  ] .child  1  ); 
if  (  oodaa  it  i  <»  EHD_OF_S TRE AM* )  { 
printf (  *  Huffman  coda-'  ) ; 

FilaPrintBinary (  atdout,  oodaa [  i  ] .coda,  oodaa [  i  ] . coda_bita 


printf (  "\n'  ); 


void  print_ohar(  o  ) 
int  o; 

( 

if  (  c  >-  0x20  SC  c  <  127  ) 
printf (  c  ); 

alaa 

printf (  “%3d",  c  ); 


void  compraaa_data(  input,  output,  oodaa  ) 
FILE  ‘input ; 

BIT_FILE  ‘output; 

CODE  ‘oodaa; 
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{ 

int  e; 

while  (  (  o  -  gotc(  input  )  )  !«  EOF  ) 

OutputBita(  output,  (unaignod  long)  oodaa[  c  ] .coda, 
codas [  c  ] .oode_bita  ); 

OutputBita(  output,  (unaignod  long)  oodoa[  KHD  OF_STEKJLN  ] .coda, 
oodoa {  BHD  OF  STREAM  ] .coda  bit a  ); 

) 

void  expand  data(  input,  output,  nodaa,  root  node  ) 

BIT_FILK  * input; 

FILE  ‘output; 

NODB  ‘nodaa; 
int  root_noda; 

{ 

int  nodo; 

for  (  ;  ;  )  { 

node  «  root_noda; 
do  < 

if  (  ZnputBit (  input  )  ) 

noda  «  nodaa [  node  ] .child_l; 

alao 

noda  «  nodaa [  noda  ] .child  0; 

}  while  (  noda  >  END  OF  STREAM  ) ; 
if  (  nodo  —  END_OF_STREAM  ) 
break; 

if  (  (  putc(  noda,  output  )  )  !-  node  ) 

fatal_arror(  "Error  trying  to  writa  expanded  byte  to  output'  ); 

) 

) 


Appendix  SS  The  Huffman  Decoder 


SS7 


Appendix  TT 

The  Adaptive  Huffman  Decoder 


Appendix  TT  The  Adaptive  Huffman  Decoder 


TT1 
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/‘Souro*  cod*  i»  from  Th<»  n^ta  rnnnrgssinn  Rnnk .  by  Mark  Nelson*/ 

/*xt  la  oompilad  with  BITIO.C,  ERRHAND . C ,  and  MAIN-B.C*/ 

ilnclud*  <atdlo.h> 

•lnclud*  <atdllb.h> 
ilnclud*  <atrlng.h> 
ilnclud*  <etyp*.h> 
ilnclud*  'bitio.h"' 
ilnclud*  'errhand . h" 

char  ‘ComprassionNam*  “  'Adaptive  Huffman  coding,  with  *acap*  cod*a" ; 
char  ‘Usage  -  'inf 11*  outfil*  [  -d  ]"; 

tdafin*  BND_OF_S TREAM  256 

idafin*  ESCAPE  257 

id*f in*  SYMBOL_COUNT  258 

id* fin*  NODE_TABLE_COUNT  {  (  SYMBOL  COUNT  *  2  )  -  1  > 

id«f in*  ROOT_NODE  0 

id*f in*  MAX_WE IGHT  0x8000 

idafin*  TRUE  1 

id* fin*  FALSE  0 

typ«d*f  struct  tr*«  { 

int  l*af [  SYMBOL_COUNT  ] ; 
int  n*xt_fr**_nod*; 
struct  nod*  { 

unsigned  int  weight; 
int  parent ; 
int  child_ia_l*af ; 
int  child; 

}  nod* a [  NODE_TABLE_COUNT  ]; 

)  TREE; 

TRBE  Tree; 

iifdaf  _ STDC _ 

void  ComprassFil* (  FILE  * input,  BIT_FIIjE  ‘output,  int  arge,  char  *argv[]  ); 
void  ExpandFil*(  BIT_FILE  ‘input,  FILE  ‘output,  int  arge,  char  *argv[]  ); 
void  InitlalizoTr** (  TREE  ‘tree  ) ; 

void  EncodaSymbol (  TREE  ‘tree,  unsigned  int  o,  BXT_FXLB  ‘output  ); 

int  D*cod*Symbol (  TREE  ‘tr*«,  BIT_FILE  ‘input  ); 

void  Updat*Mod*l(  TREE  ‘tr*«,  int  c  ); 

void  R*buildTr*« (  TREE  *tr**  ) ; 

void  swap_nod*s(  TREE  *tr*«,  int  i,  int  j  ); 

void  add_n*w_nod* (  TREE  *tr**,  int  c  ); 

void  PrintTre*  <  TREE  ‘tree  ) ; 

void  print_cod*s (  TREE  *tr**  ) ; 

void  print_cod*(  TREE  ‘tree,  int  c  ); 

void  calcul«t*_rows (  TREE  ‘tr**,  int  nod*,  int  level  ); 
int  oalculat*_ooluam* (  TREE  *tr**,  int  nod*,  int  atarting_gu*ss  ); 
int  find_ministum_column(  TREE  *tr**,  int  nod*,  int  max_row  ); 
void  r**cal*_columns (  int  factor  ) ; 

void  print_tr**(  TREE  *tr*«,  int  flrst_row,  int  last_row  )  ,* 

void  print_conn*cting_lin*s(  TREE  *tr**,  int  row  ); 

void  print_nod*_numb«rs (  int  row  ) ; 

void  print_w*ights (  TREE  *tr**,  int  row  ); 

void  print_symbol (  TREE  *tr«* ,  int  row  ) ; 

#*la* 

void  ComprassFil* (}; 
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void  ExpandFila() ; 

void  InitializaTraa () ; 

void  K no oda Symbol () ; 

int  DacodeSymbol {) ; 

void  DpdataModal { ) ; 

void  RabuildTraa () ; 

void  awap_nodaa<)  ; 

void  add_naw_noda ( ) ; 

void  PrintTraa () ; 

void  print_codaa () ; 

void  print_ooda ( ) ; 

void  oaleulata_rowa() ; 

int  aaloulata_ooluisna  ( ) ; 

void  raacala_columna () ; 

void  print_traa () ; 

void  print_connacting_linaa() ; 

void  print_noda_nuabara () ; 

void  print_waighta () ; 

void  print_aynbol () ; 

#andif 

void  CompraaaFilo (  input,  output,  argc,  argv  ) 

FILE  * input; 

BIT_FILE  ‘output; 
int  argc; 
obar  ‘argv  [] ; 

{ 

int  c; 

InitializaTraa (  tTraa  ); 

vhila  (  (  e  «  gate (  input  )  )  !»  BOF  )  { 
BncodoSymbol (  sTroa,  e,  output  ); 

DpdataModal (  tTraa,  c  ); 

) 

EncodaSymbol (  tTraa,  KKD_OF_S TREAM,  output  ) ; 
whila  (  argc-  >  0  )  { 

if  (  etremp  (  *argv,  ”-d"  )  m  0  ) 

PrintTraa (  tTraa  ) ; 

alaa 

printf(  'Dnuaad  argumant :  %a\n",  ‘argv  ); 
argv++; 


void  ExpandFila (  input,  output,  argc,  argv  ) 

BIT_FILB  ‘input; 

FILE  ‘output; 
int  argc; 
char  *argv(]; 

{ 

int  c; 

InitializaTraa (  tTraa  ); 

vbila  (  (  c  ■  Da coda Symbol (  tTraa,  input  )  )  !«  EHD_OF_STRBAM  )  { 

if  (  putc(  c,  output  )  ■*  EOF  ) 

fatal_arror(  "Error  writing  character"'  ); 

DpdataModal (  tTraa,  c  ); 


wbila  (  argc—  >  0  )  { 

if  (  attempt  ‘argv,  "-d"  )  ■«  0  ) 

PrintTraa (  tTraa  ) ; 

alaa 

printf(  "Dnuaad  argumant;  %a\n",  ‘argv  ); 
argv++; 


Appendix  TT  The  Adaptive  Huffman  Decoder 


TT3 


void  InitialixeTree (  t rmm  ) 
TREE  ‘tree; 


ROOT  NODS  +  1; 
FALSE; 

2; 

-1; 

END  OF  STREAM; 
TRUE; 

1; 

ROOT  NODE ; 
ROOT~NODE  +  1; 

ESCAPE; 

TRUE; 

1; 

ROOT  NODE; 
ROOT~NODB  +  2; 

ROOT  NODE  +  3; 


tree->nodes[  ROOT  NODE  ]. child 
tree->nodes [  ROOT_NODE  ] . child_is_lssf 
tree->nodes[  ROOT_NODE  ].v«ight 
trss->nods« t  ROOT_NODB  ] .par ant 

tree->nodes[  ROOT_NODE  +  1  ] .child 
trM->nodtt[  ROOT~NODE  +  1  ]  .  child_is_lssf 
tree->nodes[  ROOT_NODE  +  1  ] .weight 
trM->nod*<[  ROOT  NODE  +  1  ]  .parent 
tree->leaf[  END_OF_S TRSAM  ] 

tree->nodes[  ROOT_NODE  +  2  ] .child 
tree->nodee[  ROOT_NODE  +  2  ] .child  le_lea£ 
tree->node» [  ROOTJNODE  +  2  ] .weight 
tree->nodee[  ROOT_NODE  +  2  ] .parent 
tree->leaf [  ESCAPE  ] 

tree->next_free_node 

for  (  1  ■  0  ;  i  <  END_OF_S TREAM  ;  i++  ) 
tree->leaf[  1  ]  »  -1; 


void  EnaodeSymbol (  tree,  a,  output  ) 

TREE  ‘tree; 
unsigned  int  c; 

BIT  FILE  ‘output; 

{ 

unsigned  long  code; 
unsigned  long  current_bit ; 
int  cods_sixe ; 
int  current_node ; 

code  ■  0; 
current_bit  <*  1; 
code_sixe  »  0; 

current_node  «  tree->leaf[  c  ]; 
if  {  eurrent_node  »»  -1  ) 

current_node  ■  tree->leaf[  ESCAPE  ]; 
while  (  ourrent_node  I»  ROOT_NODE  )  { 
if  (  (  current_node  SI)  *■»  0  ) 
code  | «  current_bit; 
current_bit  «■  1; 
oode_sixe++; 

current_node  «  tree->nodes [  current  node  ] .parent; 

}; 

OutputBits (  output,  code,  code  sixe  ); 
if  (  tree->leaf[  c  ]  —  -1  )  { 

OutputBits (  output,  (unsigned  long)  c,  8  ); 
add_new_node (  tree,  c  ); 


int  DecodeSynbol (  tree,  input  ) 
TREE  ‘tree; 

BIT_FILE  ‘input; 
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int  current_nod# ; 
int  c; 


current_noda  “  ROOT_HODE; 

while  (  ! tr#a->nod#a [  current_node  ] . child_ia_l#af  )  { 

current_node  “  tree->nodaa[  curr«nt_nod*  ] .child; 
currant  noda  +«  InputBit {  input  ) ; 

) 

c  -  traa->nodaa[  currant  noda  ] .child; 
if  <  c  —  ESCAPE  )  { 

c  -  (int)  InputBit* (  input,  8  ); 
add  naw_noda (  traa,  c  ); 

) 

return (  c  ) ; 

) 

void  OpdataModal (  traa,  c  ) 

TREE  *traa; 
int  c; 

( 

int  currant_noda; 
int  new_node; 

if  (  traa->nodaa [  ROOT_NODE] .weight  «  MAX_*EIGHT  ) 

RabuildTraa (  traa  ) ; 
aurrent_noda  *  trae->laaf[  c  J; 
while  (  current_noda  !•  -1  )  ( 

tree->nodea[  currant_noda  ]. weight ++; 

for  (  naw_noda  “  currant_noda  ;  naw_noda  >  ROOT_NODE  ;  uaw_noda—  ) 
if  (  traa->nodaa[  naw_noda  -  1  ] .weight  >« 
traa->noda*[  currant_noda  ] .weight  ) 
break; 

if  (  ourrent_noda  !“  naw_noda  )  { 

*wap_node* (  tree,  currant_noda ,  naw_noda  ); 
current  noda  >•  new  noda; 

> 

current_noda  «  trea->nodaa [  currant  noda  ] .parent; 

> 

) 

void  RabuildTraa (  traa  ) 

TREE  *tree; 

< 

int  i; 
int  J; 
int  k; 

unaignad  int  weight; 
print f(  ~R”  ) ; 

j  -  traa->naxt  free  node  -  1; 

for  (  i  -  j  ;  I  >-  ROOTJIODS  ;  i-  )  { 

if  (  traa->noda*[  i  ] . child_ia_laaf  )  { 
traa->nodaa[  j  ]  «  traa->nodaa [  i  ); 

traa->nodaa[  j  ] .weight  »  (  traa->nodaa[  )  ] .weight  +  1  )  /  2; 

j-? 

} 

) 

for  (  i  *  tree->next_free_node  -  2  ;  j  >-  ROOT  NODE  ;  1  -•  2,  J-  )  { 
k  -  i  +  1;  “ 

traa->noda<[  j  ] .weight  “  traa->nodaa [  i  ] .weight  + 

tree->nodea[  k  J .weight; 
weight  “  traa->nodaa[  j  ] .weight ; 
tree->nodea[  j  ] . child_ia_laaf  ■  FALSE; 

for  (  k  ■  j  +  1  ;  weight  <  tree->nodea[  k  ] .weight  ;  k++  ) 

_ 
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k—  ; 

mannova (  ttraa->nodaa [  j  ],  ftraa->nodaa [  j  +  1  ] , 

(  k  -  j  )  *  sixaof (  struct  noda  )  ) ; 
traa->nodas[  k  ] .vaigbt  -  waight ; 
txaa->nodes[  k  ] .child  «  i; 
traa->nodas[  k  ] .child  is_laa£  ■  FALSE ; 

) 

for  (  i  *>  trae->next_frea_node  -  1  ;  i  >■  ROOT_HODE  ;  i—  )  { 
if  (  traa->nodas(  i  ] .child_io_laaf  )  { 
k  «  traa->noda<[  i  ]. child; 
traa->laaf[  k  ]  ■  i; 

)  alsa  { 

k  »  traa->nodas [  i  ] .child; 

trae->nodas[  k  ] .parant  -  traa->nodas [  k  +  1  ] .parant  -  i; 

> 

> 

> 

void  swap_nodas(  tree,  i,  j  ) 

TREE  *traa; 
int  i; 
int  j; 

{ 

struct  noda  tenp; 

if  (  traa->nodas [  i  ] .child_ia_leaf  ) 

traa->laaf[  traa->nodas[  i  ] .child  }  “  j; 

alsa  { 

traa->nodas[  traa->nodas [  i  ] .child  J .parant  “  j; 
traa->nodas[  traa->nodas [  i  ] .child  4-  1  ] .parant  •  j; 

} 

if  (  traa~>nodas [  j  ] ,child_is_leaf  ) 

traa->laaf[  traa->nodas(  j  ] .child  ]  *  i; 

alsa  { 

traa->nodas[  traa->nodas [  j  ] .child  J .parent  ■  i; 
traa->nodas [  traa->nodaa [  j  ] .child  *  1  ] .parant  -  i; 

) 

tamp  -  traa->nodas [  i  ] ; 
traa->nodas [  i  ]  “  traa->nodas [  j  ] ; 
traa->nodas[  i  ] .parant  •  tamp .parant ; 
tanp. parant  m  traa->nodas[  j  ] .parant; 
tree->nodes[  j  ]  •  temp; 

) 

void  add  new_node (  traa,  c  ) 

TREE  *traa; 
int  c; 

{ 

int  lightent_node; 

int  naw_noda; 

int  *aro_valght_noda ; 

ligbtast_noda  «  trae->naxt_free_node  -  1; 
naw_noda  ■*  traa->naxt_fraa_noda; 
xaro_waight_noda  ”  traa->naxt_fraa_noda  4  1; 
traa->naxt_fraa_noda  +■  2; 

traa->nodas [  new_node  ]  «  traa->nodas[  lightast_noda  ]; 
tree->nodas[  nav_noda  ] .parent  «  lightest_node; 
traa->laaf[  traa->nodas[  naw_noda  ] .child  ]  ”  naw_noda; 

tree->nodes [  lightast_noda  J .child  m  naw_noda; 

traa->nodas[  lightast_noda  ] . child_is_lasf  “  FALSE; 
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tree->nodes[  *sro_vsight_no<is  ] .child  "  c; 

trM->nod**[  sero_weight_node  ] . child_is_ls«f  •  THUS; 

trM->nod««[  zero_we ight_nods  ]. weight  “  0; 

trM->nod(>[  zsro_weight_nods  ]  .parent  “  lights st_nods; 

tcM->l*tf[  c  ]  ■  zsro_wsight_nods; 


struct  row  { 

int  first_member; 
int  count ; 

)  rows l  32  ] ; 

struct  loostion  { 
int  row; 

int  n«xt_SMunb«r; 
int  colusm; 

)  positions!  NODB_TABLB_COUNT  } ; 

void  PrintTree (  trss  ) 

TREE  *trse ; 

{ 

int  i; 
lnt  min; 

print  codss (  trss  ) ; 
for  (“i  ■  0  ;  i  <  32  ;  i++  )  { 
rows!  i  ]  .count  *»  0; 
rows [  i  ] . f irst_msmbsr  »  -1; 

} 

cslculsts_rows (  trss,  R00T_K0DE ,  0  ); 
cslculsts_columns (  trss,  ROOT_NODE,  0  ); 

min  «  f ind_minimum_column (  trss,  R00T_N0DB,  31  ); 
rsscsls_columns (  min  ) ; 
print_trss (  trss,  0,  31  ); 


void  print_codes (  trss  ) 

TREE  *tree; 

{ 

int  i; 

print f (  "Nn"  ); 

for  (  1  -  0  ;  i  <  SYMBOL_COOHT  ;  i++  ) 
if  (  trss->lssf{  i  ]  !■  -1  )  { 
if  (  isprint!  i  )  ) 

printf  (  '■%5c:  ",  i  ); 

slss 

printf(  *<*3d>:  ",  i  ); 

printf!  ~%Su” ,  tree->nodesl  trss->lssf[  i  ]  ] .weight  ); 
printf!  •  *  ); 
print_code(  trss,  i  ); 
printf (  *\n*  ) ; 


void  print_cods(  trss,  c  ) 

TREE  *tree; 
int  c; 

{ 

unsigned  long  code; 
unsignsd  long  current_bit ; 
int  cods_siss; 
int  current  nods; 
int  i; 
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cod*  “  0; 
currant_bit  *  1; 
coda_siza  «  0; 

curr«nt_nod*  ■  traa->laaf l  c  ] ; 
whila  (— currant_noda  I-  ROOT_NODB  )  { 

if  (  eurrant_noda  C  1  ) 
ooda  |*  currant_bit; 
ourrant_bit  <<“  1; 
coda_size++; 

currant_noda  -  traa->nodaa[  currant_noda  ]  .parant; 


}; 

for  (  1 


(  1  -  0  ;  i  <  coda_siza  ;  i++  )  ( 
currant_bit  »■  1; 
if  (  ooda  S  curr*nt_bit  ) 
put c (  ' 1 ' ,  atdout  ) ; 

alaa 

putc (  'O',  atdout  ) ; 


void  oaloulata  rowa (  traa,  noda,  laval  ) 

TREE  *traa; 
int  noda; 
int  laval; 

( 

if  (  rows  [  laval  ]. first jnasbar  ■*  - 1  )  { 
rows [  laval  ] . f irst_mambar  -  noda; 
rows  [  laval  ]  .count  «•  0; 
positional  noda  ] .row  ■  laval; 
positions!  noda  ] ,naxt_sar ar  »  -1; 

>  alsa  { 

positions!  noda  ] .row  “  laval; 

positions!  noda  ]  . naxt_mambar  «-  rows!  laval  ]  . first_mambar; 
rows!  laval  ] . f irst_mambar  *  noda; 
rows!  laval  ] .count ++; 

} 

if  (  !traa->nodas [  noda  ] .child_is_laaf  )  { 

calculata_rows (  traa,  traa->nodas[  noda  ] .child,  laval  +  1  ) ; 
cslculsta_rows {  traa,  traa->nodas[  noda  ] .child  +  1,  laval  +  1  ) ; 


int  calculata_columns  <  traa 
TRKB  •traa; 
int  noda; 

int  start ing_guass; 


,  noda,  starting_guass  ) 


int  naxt_noda; 
int  right_sida; 
int  la  f t_s ida ; 

naxt_noda  »  positions!  noda  ] . naxt_mambar ; 
if  (  naxt_noda  !”  -1  )  { 

if  (  positions!  naxt_noda  ]. column  <  (  start ing_guass  +  4  )  ) 
atarting_guass  «  positions!  naxt  noda  ]. coition  -  4; 

> 

if  (  traa->noda* [  noda  ] . child_is_laaf  )  { 

positions!  noda  ] .column  “  starting_guass; 
raturn (  starting  guass  ); 

> 

right_sida  ”  cslculsta_columns (  traa,  traa->nodas[  noda  J .child,  start* 
ing_guass  +2); 

laft_sida  «  calculata_columns (  traa,  traa->nodas[  noda  ] .child  4  1, 
rigbt_sida  -  4  ) ; 


TT8 


Appendix  TT  The  Adaptive  Huffman  Decoder 


starting_gusas  «  (  right_sld*  +  lsft_aids  )  /  2; 
positional  nod*  ]. column  «  start ing_guess; 
return (  start lng_gus»»  ); 


int  f ind_minimum_column (  trss,  nods,  max_row  ) 

TREE  *tree ; 
int  nods; 
int  max  row; 

{ 

int  min_right; 

int  min_left; 

if  (  trss->nodss[  nods  ] . chlld_is_leaf  ||  max_row  mm  0  ) 
rsturn (  positions!  nods  ]. column  ); 

max_row— ; 

min_right  -  £ind_minimum_column (  trss,  trss->nodsa [  nods  } .child  +  1, 
max_row  ) ; 

min_lsft  -  find_minimum_column (  trss,  trss->nodss [  nods  ] .child,  max_row  ); 

i£  (  min_right  <  min_ls£t  ) 
rsturn (  min_rigbt  ) ; 

slss 

rsturn (  min  Is ft  ) ; 


void  rssoals_columns (  factor  ) 
int  factor; 

{ 

int  i; 
int  nods; 

for  (  1  «  0  ;  i  <  30  ;  i++  )  { 

if  (  rows[  1  ]  .first_msmbsr  “*=  -1  ) 
break ; 

nods  «  rows!  i  ] .first  mambsr ; 
do  { 

positions!  nods  ]. column  -«  factor ; 
nods  “  positions!  nods  ] .nsxt_msmbsr; 
>  while  (  nods  t»  -1  ) ; 


void  print_trss(  trss,  first  row,  last  row  ) 

IRES  *tree; 
int  first_row; 
int  last_row; 

{ 

int  row; 

for  <  row  m  first_row  ;  row  <-  lsst_row  ;  row++  )  ( 
if  (  rows!  row  ] . f irst_msmbsr  “  -1  ) 
break; 

if  (  row  >  first_row  } 

print_connecting_linea (  tree,  row  ); 
print_nods_numbsrs (  row  )  ; 
print_wsights (  trss,  row  ); 
print_symbol (  trss,  row  ); 


#.'  ' '.ds f  ALPHANUMERIC 


ids fins  LBFT_EHD  218 
idsfins  RIGHT_ENr)  191 
idsfins  CENTER  193 
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•daf in*  LIME  196 

•dafina  VERTICAL  179 


l«ll« 

•da fin*  LEFT_END  '+ 
i dafina  RIGHT  END  '+ 
idafin*  CENTER  '+ 
id* fin#  LZ»( 

Idafina  VERTICAL  ' I 

fandif 


void  print_oonn*oting_lina* (  traa,  row  } 

TRIE  *tr*a; 
int  row; 

< 

int  ourr*nt_ool; 
int  atart_col ; 
int  and_ool; 
int  oantar_col; 
int  nod*; 
int  parant; 

ourrant_ool  «  0; 

noda  «  row* [  row  ] .first_m*mb*r; 
wbil*  (  nod*  !«  -1  )  { 

•tart_ool  “  poaitiona[  nod*  ] .column  +  2; 
noda  “  positional  nod*  ] .naxt_mamb*r; 

*nd_ool  -  poaitiona[  noda  ] .column  +  2; 
parant  «■  traa->nodaa[  nod*  ]. parant; 
oantar_aol  «  positional  parant  ] .column; 
o*ntar_col  +«  2; 

for  (  ;  currant_col  <  start_ool  ;  curr*nt_col++  ) 
putc (  '  ' ,  atdout  ) ; 
puto (  LE7T_END ,  atdout  ) ; 

for  (  aurrant_ool++  ;  curr*nt_col  <  cantar_col  ;  curr*nt_eol++  ) 
putc(  LINE,  atdout  ); 
puto (  CENTER,  atdout  ) ; 

for  (  curr*nt_eol++;  ourr*nt_ool  <  and_ool  ;  ourr*nt_ool++  ) 
putc(  LINE,  atdout  ) ; 
putc (  RIGHT_BND,  atdout  ); 
curr*nt_col++ ; 

nod*  •  positional  noda  ] .naxt  mambar; 

> 

print  f  {  "\tx“  )  ; 

> 

void  print  jnod*_numb*rs (  row  ) 
int  row; 

{ 

int  curr*nt_col; 

int  noda; 

int  print_ool; 

currant_ool  *0; 

noda  »  rows[  row  J .f irstjnaobar; 
wbila  (  nod*  !«  -1  )  { 

print_ool  m  positions [  nod*  ]. column  +  1; 
for  (  ;  curr*nt_col  <  print_ool  ;  curr*nt_col++  ) 
putc (  '  ' ,  atdout  ) ; 
printf(  ”%03d",  nod*  ); 
curr*nt_col  +•  3; 

nod*  “  positional  nod*  ]  .MXt_a»Bbar; 
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> 

printf(  “\n”  ); 

) 

void  print  weights (  tr**,  row  ) 

TREE  *tr**7 

int  row; 

( 

int  ourront_ool; 
int  print_ool; 
int  noda; 
int  print_sis*; 
int  n*xt_col ; 
char  buffer [  10  ]; 

curr*nt_col  "0; 

nod*  «  row* [  row  ] .  f irst_m*mb*r; 
whilo  (  nod*  t«  -1  >  { 

print_col  *  position* I  nod*  ]. column  +  1 ; 

•printf (  buff*r,  ”%u",  tr**->nod**[  t.od*  ] .weight  ); 
if  (  atrl*n(  buff*r  )  <  3  ) 

•printf(  buffer,  *%03u",  tr**->nod**[  nod*  ] .weight  ); 
print_six*  «  3; 
if  (  *trl*n<  buffer  )  >  3  )  { 

if  (  position* [  nod*  ] . n*xt_m*mb*r  «■  -1  ) 
print_*is*  «  *trl*n(  buffer  ); 

•  la*  { 

n*xt_ool  «  positional  positional  nod*  ] . n*xt_m*mb*r  ]. column; 
if  (  (  n*xt_col  -  print_ool  )  >  6  ) 
print_sis*  -  strl*n(  buffer  ); 

•Is*  { 

strepy (  buffer,  * — "  ) ; 
print_sii*  »  3; 

> 

) 

) 

for  (  ;  curr*nt_ool  <  print_ool  ;  eurr*nt_col++  ) 
putc (  '  ' ,  stdout  ) ; 
printf (  buffer  ) ; 
curr*nt_ool  +»  print_sis«; 
nod*  m  positional  nod*  ] . n*xt_m*mb*r ; 

> 

printf (  *\n"  ) ; 

} 

void  print_symbol (  tr*«,  row  ) 

TREK  *tr*e; 
int  row; 
l 

int  eurr*nt_eol; 
int  print_col ; 
int  nod*; 

curr*nt_col  ■  0; 

nod*  “  rows l  row  ] .first  m*mb*r; 
whil*  (  nod*  I-  -1  )  l 

if  (  tr**->nod*s[  nod*  ] .ebild_is_l*«f  ) 
break; 

nod*  “  positional  nod*  ].n*xt  member; 

> 

if  (  nod*  —  -1  ) 
return; 

nod*  “  rows[  row  ] .first_m*mb*r; 
whil*  (  nod*  !■  -1  )  { 

print_col  «  positions!  nod*  }. column  +  1; 
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for  (  ;  curr*nt_col  <  print_ool  ;  curr*nt_col++  ) 
putc (  '  ' ,  atdout  ) ; 

If  (  tr*«->nod*a[  nod*  ]  .  child_i.a_l.oaf  )  { 

if  (  iaprint (  troo->nodoa[  nod*  ]. child  )  ) 

print f(  * ' Ac' ” ,  troo->nodoa[  nod*  ] .child  ); 

•lao  if  (  troo->nodoa[  nod*  ]. child  mm  END  OF  STREAM  ) 
print f (  'EOF'  ); 

•lao  if  (  tr**->nod*a[  nod*  ] .child  «  ESCAPE  ) 
print f (  'ESC'  ) ; 

•  la* 

printf(  **02XH',  tr**->nod*a{  nod*  J .child  ); 

}  *la* 

print f (  '  Ac  ',  VERTICAL  ); 
curr*nt_col  +■  3; 

nod*  “  poaitiona[  nod*  ] .n*xt_n*mb*r; 


printf (  *\n'  ); 


TT12 


Appendix  TT  The  Adaptive  Huffman  Decoder 


Appendix  UU 

The  Arithmetic  Order  0  Decoder 


Appendix  UU  The  Arithmetic  Order  0  Decoder 


UU1 


The  Arithmetic  Order  0  Decoder 


/‘8ouroa  code  ia  from  n*ra  Crnnnr^sinn  Rnok.  by  Mark  Nelaon*/ 

/‘It  ia  comp Had  with  BITIO.C,  BRRHAND.C,  and  MXIS-E.C*/ 

•inoluda  <atdio.h> 
iincluda  <atdlib.h> 
iineluda  "errhand.h" 
iincluda  "bitio.h” 

typadaf  atruct  ( 

unaignad  abort  int  low_oount; 
unaignad  abort  int  high_count; 
unaignad  abort  int  aaala; 

)  SYMBOL ; 

iifdaf  _ STDC _ 

void  build_modal (  FILS  ‘input ,  FILS  ‘output  ); 

void  acale_oounta (  unaignad  long  counta[],  unaignad  char  aoalad_counta []  ); 

void  build_totala (  unaignad  ebar  acalad_counta []  ); 

void  oount_bytaa(  FILS  ‘input,  unaignad  long  counta[]  ); 

void  output_oounta (  FILS  ‘output,  unaignad  ahar  acalad_counta []  ); 

void  input_oounta (  FILS  ‘atraam  ); 

void  oonvart_int_to_aymbol (  int  aymbol,  SYMBOL  ‘a  ); 

void  gat_aymbol_acala (  SYMBOL  *a  ) ; 

int  convert_aymbol_to_lnt (  int  aount,  SYMBOL  ‘a  ); 

void  initialiae_arithmetic_eneodar (  void  ); 

void  ancoda_aymbol (  BIT_FILE  ‘atraam,  SYMBOL  *a  ) ; 

void  fluab_aritbmotio_anaodar (  BIT_FZLB  ‘atraam  ); 

abort  int  gat_aurrant_count (  SYMBOL  *a  ) ; 

void  initialisa_arithmatio_daoodar (  BIT_FILB  ‘atraam  ); 

void  ramova_aymbol_from_atraam<  BIT_FILK  ‘atraam,  SYMBOL  *a  ); 

talaa 

void  build_modal () ; 

void  acala_counta ( ) ; 

void  bulld_totala () ; 

void  count Jbytaa ( ) ; 

void  output_counta () ; 

void  input_counta ( ) ; 

void  convart_int_to_aymbol () ; 

void  gat_aymbol_acala ( ) ; 

int  convert_eymbol_to_lnt () ; 

void  initialisa_>aritbmatic_anaodar () ; 

void  encode_aymbol () ; 

void  fluah_aritbmatic_ancodar () ; 

abort  int  gat_currant_count ( ) ; 

void  initializa_arithmetic_decoder () ; 

void  ramova_aymbol_from_atroam() ; 

landif 

tfdaf ina  8ND_0F_S TRSAM  256 
abort  int  totala (  258  ] ; 

char  ‘CompraaaionNama  ■  "Fixed  ordar  0  modal  with  arithmetic  coding"; 
char  ‘Uaaga  -  "in-file  out-f ila\n\n" ; 

void  CoapraaaFile <  input,  output,  arge,  argv  } 

FILE  ‘input; 

BIYJTILS  ‘output; 
int  arge; 
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char  *argv[]; 

{ 

int  c; 

SYMBOL  a; 

build_modal(  input,  output->file  ); 
initialize_arithmatic_encoder () ; 

while  (  (  e  ■  getc(  input  }  )  I ■  BOF  )  { 
convert_int_to_aymbol (  c,  ca  ); 
encode_symbol (  output ,  (a  ); 

) 

conv«rt_lnt_t o_aymbol (  END_OF_STREAM,  Ca  ) ; 
ancoda_ayabol (  output,  Ca  ); 
f luah_arithaatic_ancodar (  output  ) ; 

Output Bit* (  output,  OL,  16  ); 
while  (  argo—  >  0  )  { 

printf(  'Unuaed  argument :  %a\n",  *argv  ); 
argv++; 

} 

) 

void  Expand? i la (  input,  output,  argc,  argv  ) 
BIT_FILE  * input; 

FILE  *oucput; 
int  argc; 
char  *argv[]; 

{ 

SYMBOL  a; 
int  o; 
int  count; 

input_count a (  input->f ila  ) ; 
inltialixa_arithmatic_daoodar (  input  ); 
for  (  ;  ;  7  ( 
gat_*ymbol_#cala (  Ca  ); 
count  «  gat_currunt_oount (  Ca  > ; 
e  «  convart_ayiabol_to_int  (  count,  Ca  )  ; 
if  (  c  —  END_OF_STRbIm  ) 
braak; 

ramova_aymbol_f rom_atraam (  input,  Ca  ); 
putc(  (char)  c.  output  ); 

} 

whila  (  argc—  >  0  )  { 

printf(  "Onuaad  argument:  %a\n",  *argv  ); 
argv++; 

) 

) 


void  build  modal (  input,  output  ) 

FILE  * input ; 

FILE  * output; 

l 

unaignad  long  counta(  256  ]; 
unaignad  char  aoalad_oounta (  256  ] ; 

count_bytaa (  input,  counts  ); 
acala_counta (  counta,  acalad_counta  ); 
output_count« (  output,  scalad_counta  ); 
build  totala(  acalad_counta  ); 

} 

*ifndaf  SEEK  SET 
idafina  SEEK  SET  0 
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void  eounC_bytoa (  input,  count*  ) 

FUJI  *  input; 
unaignod  long  count* [) i 
{ 

long  input_aarkor; 
int  1; 
int  c; 

for  (  i  -  0  ;  i  <  256  ;  i++  ) 
count* [  i  ]  m  0; 
input_markor  -  ftoll (  input  ) ; 
vhila  (  (  c  ■  g*tc(  input  ))  !«  BOF  ) 
count* (  e  ]++; 

f aeek (  input,  input_markor,  SEEK_SET  ); 

I 

void  *ealo_counta (  count*,  *c*led_count*  ) 
unaignod  long  count* []; 
unaignod  char  *calad_count* ( ] ; 

{ 

int  i; 

unaignod  long  max_count ; 
unaignod  int  total; 
unaignod  long  acalo; 

max_count  *  0; 

for  (  i  -  0  ;  i  <  256  ;  i++  ) 

if  (  count* [  i  ]  >  max_count  ) 
max_count  m  count* [  i  ]  ; 

•calo  ■  max_count  /  256; 

•aalo  -  acalo  +  1; 

for  (  i  ■  0  ;  i  <  256  ;  i++  )  { 

•calod_count» [  i  ]  -  (unaignod  char  )  (  count* [  i  ]  /  acalo  ); 

if  (  acalodcounta [  i  ]  «  0  (t  count* [  i  J  0  ) 
acalod_counta [  i  ]  -  1; 

} 

total  “  1; 

for  (  i  -  0  ;  i  <  256  ;  i++  ) 

total  +=  acalod_counta [  i  ] ; 
if  (  total  >  (  32167  -  256  )  ) 

acalo  «  4; 

olso  if  (  total  >  16383  ) 
acalo  «  2; 

OlBO 

return; 

for  (  i  -  0  ;  i  <  256  ;  i++  ) 

acaled_counta (  i  ]  /«  acalo; 

} 

void  build_totala (  acalod_counta  ) 
unaignod  char  acalod_counta [] ; 

{ 

int  i; 

'  total* [  0  ]  *  0; 

for  (  i  ■  0  ;  i  <  EKD_0F_S TR£ AM  ;  i++  > 

total* [  i  +  1  ]  ■  total* [  i  ]  +  acalod  count* [  i  ]; 
total* (  END_0F  STREAM  +  1  ]  -  total* [  END  0F_STRBAM  ]  +  1; 

> 

void  output_count* (  output,  *calod_count*  ) 

FILE  ‘output; 

unaignod  char  *calod_counts[] ; 
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int  first ; 
int  last; 
int  next; 
int  i; 

first  «  0; 

while  <  first  <  255  66  so»lsd_oounts [  first  ]  —  0  ) 
first++; 

for  (  ;  first  <  255  ;  first  »  nsxt  )  { 
last  “  first  +  1; 
for  (  ;  ;  )  { 

for  (  ;  last  <  256  ;  la«t++  ) 

if  (  saalad  counts [  last  ]  mm  0  ) 
break; 
last—; 

for  (  next  -  last  +  1;  naxt  <  256  ;  naxt++  ) 
if  (  soalad  counts [  naxt  ]  l>  0  ) 
break; 

if  (  naxt  >  255  ) 
braak; 

if  (  (  naxt  -  last  )  >  3  ) 
braak; 

last  «  naxt; 

}; 

if  (  putc(  first,  output  )  l»  first  ) 

fatal_arror(  'Error  writing  byta  count s\n"  ); 
if  (  puto(  last,  output  )  1 •  last  ) 

fatal_arror(  'Error  writing  byta  count o\n"  ); 
for  (  i  “  first  ;  i  <-  last  ;  i++  )  { 

if  (  puto(  soalad_oounts [  i  ],  output  )  1» 
(int)  sealed^counta [  i  ]  ) 
f atal_arror (  'Error  writing  byta  counts\n"  ) ; 

> 

} 

if  (  putc l  0,  output  )  !•  0  ) 

fatal  arror(  'Error  writing  byta  count s\n"  ); 

) 

void  input_counts (  input  ) 

FILE  * input; 

< 

int  first; 
int  last; 
int  i; 
int  c; 

unsignad  char  scalad_counts [  256  ]; 

for  (  i  *  0  ;  i  <  256  ;  i++  ) 
scalad_counts (  i  ]  »  0; 
if  (  (  first  »  gatc(  input  )  )  «  EOF  ) 
fatal_arror(  'Error  raading  byta  count s\n"  ); 
if  (  (  last  *  gatc(  input  )  )  “  EOF  ) 
fatal  arror(  'Error  raading  byta  count s\n"  ); 
for  (~;  ;  )  ( 

for  (  i  «  first  ;  i  <»  last  ;  i++  ) 

if  (  (  c  •  gatc(  input  }  )  *™  EOF  ) 
fatal_arror(  'Error  raading  byta  count s\n"  ); 

alsa 

scalad_counts [  i  ]  ■  (unsignad  char)  c; 
if  (  (  first  ■  gatc(  input  )  )  “  EOF  ) 
fatal  arrorl  'Error  raading  byta  counts\n”  ); 
if  (  first  —  0  ) 
braak; 

if  (  (  last  ■  gatc(  input  )  )  ••  EOF  ) 
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fatal  error (  "Error  reading  byte  counts\n”  ); 

) 

build_totala (  aealed_oounta  ); 

> 

atatio  unsigned  abort  int  code;  /*  The  present  input  code  value  */ 

static  unsigned  short  int  low;  /•  Start  of  the  current  code  range  */ 

static  unsigned  short  int  high;  /*  End  of  the  current  code  range  */ 

long  underflow_bits;  /*  Number  of  underflow  bits  pending  */ 

void  initialise  arithmetic  encoder () 

< 

low  -  0; 

high  -  Oxffff; 

underflow  bits  ■  0; 

) 

void  f lush_arithmetic_encoder (  stream  ) 

BIT  FILE  ‘stream; 

{ 

OutputBit (  stream,  low  £  0x4000  ) ; 

under flow_bit s++ ; 

while  (  underf low_bits—  >  0  ) 

OutputBit (  stream,  -low  £  0x4000  ) ; 

> 

void  convert_int_to_symbol (  c,  s  ) 
int  e; 

SYMBOL  *s; 

( 

s->scale  -  totals [  BND_OF_STRKAM  +  1  ] ; 

»->low_count  «  totals [  e  ] ; 
a->high_count  ■  totals [  c  +  1  ] ; 

> 

void  get_symbol  scale (  s  ) 

SYMBOL  *s; 

{ 

s->scale  -  totals [  END_OF  STREAM  +  1  ]; 

» 

int  convert_symbol_to_int (  count ,  a) 
int  count; 

SYMBOL  *s; 

{ 

int  c; 

for  (  c  ■  END_OF_STRBAM  ;  count  <  totals!  ®  ]  ;  o—  ) 

$ 

s->high_oount  »  totals  I  c  +  1  ] ; 
s->low_count  *  totals [  c  ] ; 
return (  c  ) ; 

) 

void  encode_symbol (  stream,  s  ) 

BITJFILB  ‘stream; 

SYMBOL  *a; 

{ 

long  range; 

range  «  (long)  (  high-low  )  +  1; 
high  «  low  -f  (unsigned  short  int) 

( (  range  *  a->high_count  )  /  s->scale  -  1  ) ; 
low  “  low  4-  (unsigned  short  int) 

( (  range  *  o->low_count  )  /  s->seale  ) ; 

for  (  ;  ;  )  { 

if  (  (  high  £  0x8000  )  —  (  low  £  0x8000  )  )  { 
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OutputBit (  (train,  high  t  0x8000  ) ; 
while  (  underf low_bita  >  0  )  { 

OutputBit  (  etream,  -high  t  0x8000  )  ; 
underflow  bita— ; 


•lao  if  (  (  low  C  0x4000  )  44  t (  high  4  0x4000  ) )  { 
underflow  bita  +-  1; 
low  4-  0x3ff f ; 
high  | -  0x4000; 

)  olaa 

return  ; 
low  <<»  1; 
high  <<“  1; 
high  |-1; 


ahort  int  get  current  count {  a  ) 

SYMBOL  *a; 

< 

long  range; 
abort  int  count; 

range  -  (long)  (  bigb  -  low  )  +  1; 
count  -  (ahort  int) 

((((long)  (  code  -  low  )  +  1  )  *  a->acale-l  )  /  range  ); 
return (  count  ) ; 


void  initialite_arithaietia_decoder (  etream  ) 
BIT_FILE  *atream; 

( 

int  i; 
code  —  0; 

for  (  i  »  0  ;  1  <  16  ;  i++  )  ( 
code  «-  1; 

code  +”  ZnputBit (  at ream  ) ; 

) 

low  -  0; 
high  -  Oxffff ; 


void  remo ve_aymbol_f rom_at ream (  atream,  a  ) 
BIT_FILK  *atream; 

SYMBOL  *a; 


long  range; 

range  -  (long) (  high  -  low  )  +1; 
high  -  low  +  (unaigned  ahort  int) 

( (  range  *  a->high_eount  )  /  a->acale  -  1  ) ; 
low  »  low  +  (unaigned  ahort  int) 

{ (  range  *  a->low_count  )  /  a->aoale  ) ; 

for  (  ;  ;  )  { 

if  (  (  high  C  0x8000  )  —  (  low  C  0x8000  )  )  ( 

) 

elae  if  ( (low  s  0x4000)  —  0x4000  tt  (high  fi  0x4000)  —  0  )  { 
code  A-  0x4000; 
low  c-  0x3f ff ; 
high  |«  0x4000; 

)  elae 

return ; 
low  «-  1; 
high  «-  1; 
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/‘Source  cod*  ia  from  Th<»  nara  Coimrf^inn  Rnnk.  by  Mark  Nelson*/ 
/*It  is  oosg>il*d  with  BXTIO.C,  BRRHAND . C,  and  MAIN-B.C*/ 

fincXud*  <stdio.h> 

•include  <stdlib.b> 
iinoXud*  <string.b> 
linclud*  "errhand . h" 
iinoXud*  'bitio . h" 

typ*d*f  struct  { 

unsigned  short  int  low_count; 
unsigned  short  int  high_count; 
unsigned  short  int  acaX*; 

}  SYMBOL; 


#d* fins  MAXIMUM_SCALE  16383  /*  Maximum  allowed  frequency  count  */ 

Id* fin*  END_OF_STRBAM  256  /  *  Th*  BOF  symbol  */ 

extern  long  undarf low_bita;  /»  Th*  present  underflow  count  in  */ 

/*  th*  arithmetic  coder.  */ 

int  ‘totals [  257  ];  /*  Pointers  to  th*  257  context  table*  */ 


tifdef  _ STDC _ 

void  initialise_arithmetic_decoder (  BXT_FXLE  ‘stream  ); 

void  r*move_symbol_from_atraam(  BXT_FXLS  ‘stream,  SYMBOL  *a  ); 

void  initialis*_arithmetic_enaoder (  void  ); 

void  enaode_symbol (  BIT_FILB  * stream,  SYMBOL  *a  ) ; 

void  f lush_arithmetic_encoder (  BXTJFXLB  ‘stream  ); 

short  int  get_aurr*nt_count (  SYMBOL  *s  ) ; 

void  initislis*_model (  void  ); 

void  updatemodel (  int  symbol,  int  context  ); 

void  convert_int_to_aymbol (  int  symbol,  int  context,  SYMBOL  **  ); 

void  get_symbol_scale (  int  context,  SYMBOL  *a  ); 

int  oonv*rt_eymbol_to_int (  int  count,  int  context,  SYMBOL  *s  ); 

•else 

void  initialise_arithmetic_decoder () ; 

void  r*mov*_symbol_f rom_str*am ( ) ; 

void  initialise_arithsMtic_encodar () ; 

void  encode_symbol () ; 

void  flush_arithmetic_encoder () ; 

short  int  get_current_aount ( ) ; 

void  initialixe_model () ; 

void  updat e_mode 1 () ; 

void  convert_lnt_to_symbol() ; 

void  get_symbol_scal* ( ) ; 

int  convert  symbol  to_int(); 

fendif 

char  ‘CompressionName  *  'Adaptive  order  1  model  with  arithmetic  coding'; 
char  ‘Usage  *  'in- file  out-f il*\n\n"; 

void  CompressFll* (  input,  output,  arge,  argv  ) 

FILE  ‘input; 

BITjriLB  ‘output; 
int  arge; 
char  ‘argv  (] ; 

{ 

SYMBOL  s; 
int  c; 

int  context; 
context  ”  0; 
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initialise_model ()  ; 

initialise  trlthaatlc  encoder (); 

for  <  ;  ;  7  { 

c  «  gate (  input  )  ; 
if  (  a  mm  BO?  ) 

C  «  END_OF_S  TREAM ; 

convert_int  to_#ymbol (  o,  context,  is  ); 
encode_symbol (  output,  is  ); 
if  (  c~—  END_OF_STREAM  ) 
break; 

updete_aodel (  c,  context  ) ; 
context  “  c; 

) 

f lush_arithmetie_enooder (  output  ) ; 
putcher (  'Sn'  ); 
while  (  ergo—  >  0  ) 

printf(  "Unknown  argument:  %a\n",  *argv++  ), 


void  ExpandFile(  input,  output,  arge,  argv  ) 

BIT_FILE  ‘input; 

FILE  ‘output; 
int  arge; 
char  »argv[]; 

1 

SYMBOL  a; 
int  count ; 
int  c; 

int  context; 

context  ■  0; 
initialisejmodel ()  ; 

inltialize_arithaetic_decoder (  input  ); 
for  (  ;  ;  7  { 

get_aymbol_acale (  context,  is  ); 
count  •  get_current_c«  jnt  <  fie  ) ; 
c  *  convert_aymbol_to_int (  count,  context,  ia  ); 
r emo ve_» ymbo 1  from- stream (  input ,  is  )  ; 
if  <  c  —  KNDOFSTREAM  ) 
break; 

puto (  (char)  c,  output  ) ; 
updetejmodel (  c,  context  ) ; 
context  -  c; 

> 

put char (  '\n'  ); 
while  (  arge-  >  0  ) 

printf(  "Unknown  argument:  %s\n",  *argv++  ); 


void  initialise  model () 

< 

int  context; 
int  i; 

for  (  context  ■  0  ;  context  <  END_0F_S TREAM  ;  context ++  )  { 

totala {  context  ]  »  (int  *)  calloc (  BND_OF_STRRAM  +  2,  aizeof(int)  ); 
if  (  totals (  context  ]  “  NULL  ) 

fatal_error(  "Failure  allocating  context  %d  ,  context  ); 
for  (  i  -"0  ;  i  <-  (  END_0F_S TREAM  +  1  )  ;  i++  ) 
totals!  context  ] [  i  ]  -  i; 


void  update_model (  symbol,  context  ) 
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int  symbol ; 

Int  aontsxt ; 

{ 

int  i; 

for  <  i  -  aymbol  +  1  ;  i  <-  (  IND_OF_STREAM  +  1  )  ;  i++  ) 

total# [  oontaxt  ][  i  )++; 

if  <  total# [  oontaxt  ] [  EWD_OF_STRBAM  +  1  ]  <  MAXIMtJM_SCALE  ) 
rat urn; 

for  (  i  -  1  ;  i  <«  (  IND_OF_STRXAM  +  1  )  ;  i++  )  { 
total# [  oontaxt  ][  i  ]  /■  2; 

if  <  total# I  oontaxt  ] [  i  ]  <■  total# [  oontaxt  ][  i  -  1  ]  ) 
total# [  oontaxt  ][  i  ]  -  total# [  oontaxt  ][  i  -  1  ]  +  1; 


void  convert_int_to_#ymbol (  e,  oontaxt,  a  ) 
int  e; 

int  oontaxt ; 

SYMBOL  *•; 

< 

#->#oala  »  total# [  oontaxt  ] [  END_OF_STREAM  +  1  ] ; 
#->low_count  »  total# [  oontaxt  ] [  c  J ; 
#->high_count  «  total# [  oontaxt  ] [  e  +  1  ] ; 


void  gat_#ymbol_#cala (  oontaxt,  a  ) 
int  oontaxt; 

SYMBOL 

( 

#->acala  »  total# [  oontaxt] [  BND  OF  STREAM  +  1  ]; 


int  convart_ayiabol_to_int (  oount,  oontaxt,  a) 
int  oount; 
int  oontaxt; 

SYMBOL  *•; 

{ 

int  c; 

for  (  e  ■  0;  oount  >»  total# [  oontaxt  ][  o  +  1  ]  ;  o++  ) 
• 

#->high_oount  «  total# [  oontaxt  ] [  c  +  1  ] ; 

#->low_aount  m  total# [  oontaxt  lie]; 
raturn (  c  ) ; 


•tatio  unaignad  short  int  coda; 
static  unsigned  short  int  low; 
static  unsigned  short  int  high; 
long  underflow_bits; 

void  initialise_arithmetic_encoder () 

< 

low  "  0; 

high  «  Oxffff ; 

underflow  bits  ■  0; 


void  fluah_arithn»atic  aneodar(  straaa  ) 
BIT_FILE  * stream; 
l 

OutputBit (  stream,  low  S  0x4000  ) ; 

unda r f low_bit •++ ; 

while  (  underflow  bits—  >  0  ) 
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OutputBit (  stream,  -low  C  0x4000  ) ; 

OutputBit* (  stream,  0L,  16  ); 

) 

void  anooda  symbol (  stream,  a  ) 

BIT  FILE  "stream; 

SYMBOL  *a; 

{ 

Ion?  ranga; 

range  -  (long)  (  high-low  )  +  1; 
high  “  low  +  (unsignad  short  int) 

( (  ranga  *  s->high_oount  )  /  a->aeala  -  1  ) ; 
low  ■  low  +  (unaignad  short  int) 

( (  ranga  *  a->low  oount  )  /  s->soala  ) ; 

for  (  ;  ;  )  { 

if  (  (  high  <  0x8000  )  —  {  low  C  0x8000  )  )  { 

OutputBit (  straam,  high  t  0x8000  ); 
whila  (  undarflow_bita  >  0  )  ( 

OutputBit (  straam,  -high  t  0x8000  ) ; 
underflow  bits—; 

) 

) 

alsa  if  (  (  low  s  0x4000  )  fit  t (  high  c  0x4000  ) )  { 
undarflow  bits  +»  1; 
low  fi-  0x3f£f ; 
high  |-  0x4000; 

}  also 

raturn  ; 
low  <<-  1; 
high  «-  1; 
high  |-1; 

) 

short  int  gat_ourrant_aount (  s  ) 

SYMBOL  *s;  " 

{ 

long  ranga; 
short  int  count; 

ranga  -  (long)  (  high  -  low  )  +  1; 
oount  »  (short  int) 

((((long)  (  coda  -  low  )  +  1  )  *  s->acala-l  )  /  ranga  ); 
raturn (  count  ) ; 

} 

void  initializa_arittuoatic_daeodor (  straam  ) 

BIT_FILE  *straam; 

( 

int  i; 
coda  -  0; 

for  (  i  -  0  ;  i  <  16  ;  i++  )  { 
coda  CO  1; 

coda  +«  InputBit (  straam  ); 

) 

low  -  0; 
high  -  Oxffff; 

> 

void  raaove_symbol_from_straam(  straam,  s  ) 

BIT  FILE  * straam; 

SYMBOL  *s; 

( 

long  ranga; 
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rang*  «  (long) (  high  -  low  )  +  1; 
high  «  low  +  (unsigned  short  int) 

<  <  rang*  *  *->hlgh_count  )  /  s->scal*  -  1  ) ; 
low  «  low  +■  (unsignad  short  int) 

((  rang*  *  a->low  count  )  /  a->scal*  ); 

for  (  ;  ;  )  ( 

if  (  (  high  C  0x8000  )  ««  (  low  t  0x8000  )  )  ( 

) 

•Is*  if  ((low  c  0x4000)  -■  0x4000  cs  (high  C  0x4000) 
cod*  0x4000; 
low  0x3fff ; 

high  |a  0x4000; 

)  *ls* 

return; 
low  «■  1; 
high  <<■  1; 
high  |«  1; 
cod*  «<*  1; 

cod*  +»  InputBit (  stream  ) ; 
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The  Arithmetic  Order  2  Decoder 


/*Souroa  coda  la  from  Thg  Para  Cnmnri».^inn  RQQk.  by  Nark  Nalaon*/ 
/•It  la  ooapilad  with  BITIO.C,  ERRHAND . C,  and  MAIN-E.C*/ 

finoluda  <atdio.h> 
finoluda  <atdllb.h> 
finoluda  <atring.h> 
finoluda  "ar rhand.h” 
finoluda  "bitio .  h' 

typadaf  atruot  { 

unalgnad  ahort  int 
unalgnad  ahort  int 
unalgnad  abort  int 
}  SYMBOL; 

fdafina  MAXIMUM_SCALE 
fdafina  ESCAPE 
fdafina  DONE 
fdafina  PLUSH 

fifdaf  _ STDC _ 

void  initialisa_optiona (  int  argc,  char  **argv  ); 
int  chack_oompraaaion (  PILE  * input,  BIT_FILE  * output  >; 
void  initialixa_modal (  void  ) ; 
void  updata_modal (  int  aymbol  ) ; 

int  convart_int_to_aymbol (  int  aymbol,  SYMBOL  *a  ); 
void  gat_aymbol_acala  (  SYMBOL  *a  )  ; 
int  oonvart_aymbol_to_int (  int  count,  SYMBOL  *a  ); 
void  add_oharactar_to_eiodal  (  int  e  ) ; 
void  f luah_aodal (  void  ) ; 

void  initializa_arithmatic_dacodar (  BITJFILB  *atraam  ); 
void  ramova_aymbol_f rom_atraam (  BIT_PILE  *atraam,  SYMBOL  *a  ); 
void  initlalisa  arithmatio_anaodar (— void  ); 
void  anooda_ayiiibo  1  (  BIT_FILR  *atraam,  SYMBOL  *a  )  ; 
void  f luah_arithmatic_ancodar (  BIT_FILE  *atraam  ) ; 
abort  int  gat_currant_count (  SYMBOL  *a  ) ; 

falaa 

void  initializa_optiona () ; 
int  chaek_compraaaion() ; 
void  initialixa_nodal () ; 
void  updata_modal  () ; 
int  convart_lnt_to_aymbol () ; 
void  gat_aymbo l_a oala (); 
int  aonvart_aymbol_to_int () ; 
void  add_oharaotar_to_aodal() ; 
void  fluah_modal () ; 

void  lnitialixa_arithss«tie_daeodar  {) ; 
void  ramova_aymbol_frou;  scraamO  ; 
void  initialixa_arithma<.le_ancodar  ()  ; 
void  anooda_aymbol () ; 
void  fluah_arithmatic_ancodar () ; 
ahort  int  gat_ourrant_oount ( ) ; 

fandif 


low_oount ; 
high_count ; 

acala; 


16383  /*  Maximum  allowad  fraquanoy  count  */ 
256  /*  Tha  aaoapa  aymbol  */ 
(-1)  /*  Tha  output  atraaa  aapty  aymbol  */ 
(-2)  /*  Tha  aymbol  to  fluah  tha  modal  */ 


ohar  *CompraaaionNama  ■  "Adapt iva  ordar  n  modal  with  arithmetic  coding"; 
ohar  *Uaaga  -  "in-fila  out-fila  [  -o  ordar  ]\n\n"; 

int  max  ordar  “  3; 
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void  ConprasaFila (  input,  output,  argc,  argv  ) 

FILS  ‘input; 

BIT_FILE  ‘output ; 
int  argc ; 
char  »argv[]; 

( 

SYMBOL  a; 
int  c; 

int  escaped; 

int  fluah  m  0; 

long  int  taxt_oount  »  0; 

lnitializa_optiona  (  argc,  argv  )  ; 
initialita_aodal ()  ; 
initialise_arithnatic_encodar () ; 
for  (  ;  ;  )  { 

if  (  (  ++taxt_count  £  0x0 ff  )  ■»  0  ) 

fluah  "  chock  costpraaaion  (  input,  output  ); 
if  {  I fluah  ) 

c  «  gate  <  input  ) ; 

alaa 

c  ■  FLUSH; 
if  (  c  —  EOF  ) 
c  -  DONE; 

do  { 

aacapad  -  convert_int_to_symbol  (  e,  £a  ); 
encode_aynbol  (  outputT  £■  ),* 

}  whila  (  aacapad  ) ; 
if  (  c  mm  DONS  ) 
braak; 

if  (  c  —  FLUSH  )  { 
f luab_modal () ; 
flush  ■  0; 

} 

updata_modal (  c  ) ; 

add  charaotar  to  nodal (  c  ) ; 

)  ~ 
f lush_arithmatic  anoodar (  output  ) ; 

> 

void  BxpandFila(  input,  output,  argc,  argv  ) 

BITJFILB  ‘input; 

FILE  ‘output; 
int  argc; 
char  *argv[]; 

{ 

SYMBOL  a; 
int  c; 
int  count; 

initialita_options (  argc,  argv  ); 
initialisa_modal () ; 

initializa_arithnatic_daoodar (  input  ); 
for  c  ;  ;  T  { 
do  { 

gat_aynbol_acala (  £s  ) ; 

count  «  gat_currant_count (  £a  ) ; 

e  ■  convart_aynbol_to_int (  count,  fis  ); 

ranova_aynbol  from  straam(  input,  £a  ); 

}  vhilo  (  e  —  ESCAPE  T; 
if  (  c  —  DONE  ) 
braak ; 

if  (  c  !-  FLUSH  ) 

putc(  (char)  c,  output  ); 
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flush_model () ; 
upd»t«_mod«l (  c  ) ; 
add  oharacter_to_modal (  e  ); 

> 

} 

void  initiali«a_options(  argc,  argv  ) 
int  argc; 
obar  *argv  []  ; 

{ 

while  (  argo—  >  0  )  { 

if  (  stromp(  ‘argv,  “-o"  )  —  0  )  { 
argo-; 

max_ordar  ■  atoi (  *++argv  ) ; 

>  alao 

print f (  "Uknown  argument  on  command  lina:  %s\n",  ‘argv  ); 

argo-; 

argv++; 

) 

) 

int  check_comprassion (  input,  output  ) 

FILE  * input; 

BITJTILE  ‘output; 

{ 

static  long  local_input_markar  -  OL; 
static  long  local_output_markar  «  OL; 
long  total_input_bytea; 
long  total_output_bytea; 
int  looal_ratio; 

total_input_bytas  “  ftall (  input  )  -  local_input_markar; 
t ot al_output_byt a s  ■  ftall (  output->fila  ); 
tot a l_output_byt as  -»  local_output_marker ; 
if  (  total_output_bytas  *»»  0  ) 
total_output_bytas  ■  1; 

local_ratio  -  (int) (  (  total_output_bytas  *  100  )  /  total_input_bytes  ); 

loaal_input_markar  »  ftall (  input  ) ; 
local_output_markar  «  ftall (  output->fila  ); 

raturn  (  local_ratio  >  90  )  ; 

) 

typadaf  struct  { 

unsigned  char  symbol; 
unsigned  ebar  counts; 

}  STATS ; 

typadaf  struct  { 

struct  oontaxt  ‘next; 

}  LINKS; 

typadaf  struct  context  ( 
int  max_indax; 

LINKS  ‘links; 

STATS  ‘stats; 

struct  context  *lesser_contaxt; 

}  CONTEXT; 

CONTEXT  “contexts; 

int  current_order; 

short  int  totals (  258  ]; 
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char  scoreboard [  256  ); 
fifdef  _ STDC _ 

void  updste^table (  CONTEXT  ‘table,  int  symbol  ); 
void  rescale  tabla (  CONTEXT  *tabla  ) ; 
void  totalize_table(  CONTEXT  ‘table  ); 

CONTEXT  »»hift_to_naXt_context (  CONTEXT  * tabla,  int  c,  int  order); 
CONTEXT  *allocata_neXt_order_tabla (  CONTEXT  *table, 

int  symbol, 

CONTEXT  * laa  aar_oont axt  ) ; 
void  raour*lva_f lu»h (  CONTEXT  * tab la  ); 

falsa 

void  update_table () ; 
void  resaale_table () ; 
void  totslize_table() ; 

CONTEXT  *sbift_to_naxt_context () ; 

CONTEXT  *alloeate_naxt_order_table () ; 

void  recursive_flush() ; 

fendif 

void  lnitislixe  modal () 

{ 

int  i; 

CONTEXT  *null_tsble; 

CONTEXT  *control_table; 

currant_ordar  -  max  ordar; 

contaxts  -  (CONTEXT-**)  calloc<  sizaof  (  CONTEXT  *  ),  10  ) ; 
if  (  contaxts  "  NOLL  ) 

fatal_arror(  "Failura  #1:  allocating  aontaxt  tabla 1 "  ); 
contaxts  +«  2; 

null_tabla  -  (CONTEXT  *)  calloc{  sizaof (  CONTEXT  ),  1  ); 
if  (  null_tabla  —  NOLL  ) 

fatal_arror(  "Failura  #2:  allocating  null  tabla I*  ); 
null_tabla->max_indax  ••  -1; 
contaxts [  -1  ]  ■  null_tabla; 
for  (  i  «  0  ;  i  <*■  max_ordar  ;  i++  ) 

contaxts [  i  ]  «  alloosta  naxt_ordar  tabla (  oontaxts[  1-1  ], 

0, 

contaxts [  1-1  ]  ); 

f raa (  (char  *)  null_tabla->stats  ) ; 
null_tabla->atata  " 

(STATS  *)  calloc (  sizaof <  STATS  ),  256  ); 
if  (  null_tsbla->»tats  —  NOLL  ) 

fatal_arror(  'Failura  #3:  allocating  null  tabla I'  ); 
null  tabla->max  indax  “  255; 
for  (  1-0  ;  i  256  ;  i++  )  ( 

null_tabla->stats (  1  ]. symbol  -  (unsigned  char)  1; 
null  tabla->stats (  1  ] .counts  -  1; 

) 

control  tabla  -  (CONTEXT  *)  oalloc  (  sizaof (CONTEXT) ,  1  ); 
if  (  control_tabla  —  NOLL  ) 

fatal_arror(  'Failure  14:  allocating  null  table!"  ); 
control_table->stats  - 

(STATS  *)  calloc (  sizaof <  STATS  ),  2  ); 
if  (  control_table->stats  —  NOLL  ) 

fatal_arror(  'Failura  #5:  allocating  null  table!"  ); 
contexts!  -2  ]  -  control_table; 
control_table->max_index  -  1; 
control_table->stats [  0  ]. symbol  -  -FLOSB; 
control_table->stats [  0  ] .counts  -  1; 
control_table->stats [  1  ] .symbol  -  -DONE; 
control_table->stats [  1  ). counts  -  1; 
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toe  (  1  -  0  ;  1  <  256  ;  1++  ) 
acoraboard[  i  ]  «  0; 

} 

CONTEXT  *allocata_naxt_ordar  tabla (  tabla,  symbol,  laasar  context  ) 
CONTEXT  ‘tabla; 
lot  symbol; 

CONTEXT  ‘laaaar  oontaxt; 

< 

CONTEXT  *naw_tabla; 
int  1; 

unalgnad  int  nav_aixa ; 

for  (  i  »  0  ;  i  <-  tabls->max_indax  ;  1++  ) 

if  (  tabla->stata [  i  ] .ayabol  «»  (unalgnad  char)  ayabol  ) 
braak ? 

If  (  1  >  tabla ->max_indax  )  ( 
tabla- >max_lndax++ ; 
naw_aisa  -~sixaof<  LINKS  ); 
naw_a Isa  *■  tabla ->max  indax  +  1; 
if  (  tabla->linka  —  NOLL  ) 

tabla->linka  *  (LINKS  *)  oalloc(  naw  slza,  1  ); 

alaa 

tabla->llnka  •  (LINKS  *) 

raalloo (  (char  *)  tabla->linka,  naw  sisa  ); 
naw_siza  -  aizaof (  STATS  );  ” 

naw_siza  *■  tabla ->max_ind#x  +  l; 

If  (  tabla->atata  —  NOLL  ) 

tabla->atata  -  (STATS  *)  calloc<  naw  sisa,  1  ); 

alaa 

tabla->atata  -  (STATS  *) 

raalloc(  (char  *)  tabla->atata,  naw  alsa  ); 

If  (  tabla->linka  ■■  NOLL  )  ~ 

f*tal_arror<  "Failure  #6:  allocating  naw  tabla'  ); 
if  (  tabla->atata  —  NOLL  ) 

fatal_errorl  "Failure  #7:  allocating  naw  tabla'  ); 
t*blo->atata [  i  ]. symbol  »  (unalgnad  char)  symbol; 
tabla->atata[  1  ] .counts  -  0; 

) 

naw_tabla  “  (CONTEXT  *)  calloc (  alsaof(  CONTEXT  ),  1  ); 
if  (  naw_tabla  —  NOLL  ) 

fatal_arror{  "Failure  #8:  allocating  naw  tabla'  ); 
na w_t  abla - >max_l ndax  ■  -1; 
tabla->link» [  i  ] . naxt  ■  naw_tabla; 
na‘_tabla->lasaar_contaxt  -  Tesser_context ; 
raturn (  naw_tabla  ); 


void  updata_modal (  symbol  ) 
int  symbol; 

{ 

int  1; 

int  local_order; 

if  (  currant_ordar  <  0  ) 
local  ordar  ■  0; 

alsa 

local__order  ■  currant_ordar; 
if  (  symbol  >*  0  )  { 

whila  (  local_ordar  <■  max_ordar  )  ( 
if  (  symbol  >-  0  ) 

updat a_t ab la (  contaxts [  local_ordar  ] ,  symbol  ) ; 
local_ordar++;  ” 

} 

} 


j 
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currant  order  «  ux  order; 
for  (  i~«  0  ;  1  <  256  ;  i++  ) 
■coreboard [  i  ]  ■  0; 


void  update  table (  table,  symbol  ) 

CONTEXT  ‘table; 
int  symbol; 

{ 

int  i; 
int  index; 
unsigned  char  temp; 

CONTEXT  *temp_ptr; 
unsigned  int  new_aixe; 
index  »  0 ; 

while  (  index  <-  table->max_index  tt 

table->stata [index] .symbol  !«  (unsigned  char)  symbol  ) 
index++; 

if  (  index  >  table->max_index  )  { 
table- >max_lnd#x++ ; 
new_size  -~siseof (  LINKS  ) ; 
new_size  *■  table- >max_index  +  1; 
if  (  current_order  <  max_order  )  ( 
if  (  table->max_index  —  0  ) 

table->links  “  (LINKS  *)  oalloe(  new  sise,  1  ); 
else  ~ 

table->links  -  (LINKS  *) 

realloo(  (char  *)  table->links,  new  size  ); 
if  (  table->linka  —  NULL  ) 

f«tal_error(  'Error  #9:  reallocating  table  space  I'  ); 
table->links [  index  ] .next  «  NOLL; 

} 

new_size  ■  slzeof  (  STATS  ); 
new_size  *-  table->max_index  +  1; 
if  (table- >max_index»* 0 ) 

table->stats  -  (STATS  *)  calloo(  new  sise,  1  ); 
else  " 

table->stats  -  (STATS  *) 

realloc (  (char  *)  table->stats,  new  sise  ); 
if  (  table->stats  —  NOLL  ) 

fatal_error (  'Error  #10:  reallocating  table  spaae ! "  ); 
table->stats [  index  ]. symbol  m  (unsigned  char)  symbol; 
table->stats [  index  J. counts  ■  0; 

> 

i  “  index; 
while  (  i  >  0  cc 

table->stats [  index  ] .counts  —  table->stats [  i-1  ] .counts  ) 

1-; 

if  (  i  I-  index  )  ( 

temp  *  table->stats [  index  J. symbol; 

table->stats [  index  ]. symbol  -  table->stats[  i  ]. symbol; 
table->stats[  i  J. symbol  »  temp; 
if  (  table->links  !■  NOLL  )  { 

tenp_ptr  «  table->links (  index  ] .next; 
table->links [  index  ] .next  ”  table->links [  i  ] .next; 
teble->links[  i  ] .next  ■  temp_ptr ; 


table->stats [  index  J . counts++; 
if  (  table->stats (  index  ] .counts 
rescale_table (  table  ) ; 


int  convert_int_to_symbol (  c,  s  ) 
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int  e; 

symol  *■; 

{ 

int  i; 

CONTI XT  *tabla; 

tabla  «  contaxts [  currant_ordar  ] ; 
totaliza_tabla (  tabla  ) ; 
a->»oala  ■  totaia [  0  ); 
if  <  currant_ordar  »»  -2  ) 
e  *  -o; 

for  (  i  ■  0  ;  i  <»  tabla~>max_indax  ;  i++  )  { 

if  (  c  mm  (int)  tabla->stats [  i  ]. symbol  )  { 
if  (  tabla->atata [  1  ] .count a  «•  0  ) 
braak ; 

a->low_count  »  totals [  i+2  ] ; 
s->high_oount  -  totals [  i+1  ] ; 
raturn (  0  ) ; 


«->low_count  »  totals {  1  ] ; 
s->high_count  “  totals [  0  ] ; 
ourrant_ordar— ; 
raturn (  1  ) ; 


void  gat_aymbol_aoala (  s  ) 

SYMBOL  *s; 

{ 

CONTEXT  *tabla; 

tabla  “  contaxts [  currant_ordar  ] ; 
totalixa_tabla (  tabla  ) ; 
s->scala  -  totals [  0  ] ; 


int  convart_symbol_to_int (  count,  s  ) 
int  count; 

SYMBOL  *a; 

( 

int  c; 

CONTEXT  *tabla; 

tabla  «  contaxts [  currant_ordar  ] ; 
for  (  c  «  0;  count  <  totals!  e  )  ;  c++  ) 

t 

a->high_count  •  totals (  a  -  1  ]  ; 
s->low_count  •  totals [  c  ] ; 

If  (  c  —  1  )  ( 

eurrnnt_ordnr— ; 
raturn (  ESCAPE  ) ; 

) 

if  (  currant_ordar  <  -1  ) 

raturn (  (int)  -tabla->stats [  c-2  ) .symbol  ); 

alsa 

raturn (  tabla->stats [  c-2  ].syaabol  }; 


void  add_charactar_to_modal (  c  ) 
int  e; 

< 

int  1; 

if  (  max_ordar  <0  | |  c  <  0  ) 
raturn; 

contaxts!  max_ordar  ]  « 
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shlft_to_n*xt_context (  context* [  max_ord*r  ],  c,  aax_order  ); 
for  (  i  “  max_ordsr- 1  ;  1  >  0  ;  i—  ) 

context* I  i  ]  «  context* [  i+1  ] ->l*as*r_oont*xt ; 


CONTEXT  *ahift_to_n*xt_oont*xt (  table,  c,  order  ) 

CONTEXT  "table?  ” 
lnt  c; 
lnt  order; 

< 

lnt  1; 

CONTEXT  *ne«_le**er; 

table  ■  table->le*aer  context; 

If  (  order  —  0  ) 

return (  tabl*->llnks (  0  ] .next  ); 
for  (  i  ■  0  ;  i  <-  table->a*x_index  ;  1++  ) 

If  (  table->*tat*  (  1  J. symbol  **■  (unsigned  char)  c  ) 

If  (  table->link* (  1  ] .next  I-  NULL  ) 
return (  tabl*->links !  1  ] .next  ); 

else 

break ; 

new_le»*er  *  *hift_to_next_context (  table,  c,  order-1  ); 
table  -  allocate_next_order_table (  table,  c,  new_le**er  ); 
return (  table  ) ; 


void  rescale  table (  table  ) 

CONTEXT  "table; 

< 

lnt  1; 

If  (  table->max_lndex  “  -1  ) 
return ; 

for  (1*0;  1  <■  table->max_index  ;  1++  ) 
table->*tats [  1  ] .counts  /«  2; 
if  (  table->stats[  table->max_index  ] .counts  ■»  0  fit 
table->llnks  m  NOLL  )  { 

while  (  t able ->s tats [  table- >aax_ind*x  ] .counts  0  tfc 
table->max_index  >-  0  ) 
table->max_lnd*x— ; 

If  (  tabl*->max_ind*x  **-!)( 

free(  (char  *)  table->stats  ); 
table->stats  -  NOLL; 
i  els*  { 

table->stat*  -  (STATS  *) 

r*alloc(  (char  *)  tabl*->stats, 

siseof (  STATS  )  *  (  table->max  index  +  1  )  ) ; 
if  (  tabl*->stats  —  NOLL  ) 

fatal  *rror<  "Error  #11:  reallocating  stats  space!"  ); 

) 

) 

) 

void  totalise  table (  table  ) 

CONTEXT  "table; 

{ 

lnt  i; 

unsigned  char  max; 

for  (  ;  ;  )  { 
max  ■  0; 

i  *  tabl*->aax_ind*x  +  2; 

totals!  *  ]  ■  0; 

for  (  ;  1  >  1  ;  i-  )  ( 

totals!  i-1  ]  -  totals!  1  ]; 
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if  (  table->stats t  i-2  ]. counts  ) 
if  (  (  current_order  “  -2  )  | | 

scoreboard!  t*bl*->*t*t* [  i-2  ] .symbol  ]  0  ) 

tot*l*[  i-1  ]  ♦“  table->st*t* [  i-2  ] .counts ; 
if  (  table->stats l  i-2  ]. count*  >  max  ) 
max  *  tabl«->atat* [  i-2  ] .counts ; 

) 

if  (  max  ~  0  ) 

total* I  0  ]  -  1; 

•  1*«  { 

total* I  0  ]  -  (short  int)  (  256  -  table->max_index  ,  ; 

total*  I  0  ]  ‘«  tabl«->max  index; 

total* [  0  ]  /-  256; 

total* [  0  ]  /■  max; 

total*!  0  ]++; 

total* I  0  ]  +■  total*!  1  ]; 

) 

if  (  total*!  0  ]  <  MAXXMUM_SCALB  ) 
break; 

rescale  table (  table  ) ; 

) 

for  (  i  ■  0  ;  i  <  table->max_index  ;  i++  ) 
if  (table->atat*[i] .count*  1“  0) 

scoreboard!  table->*tat* (  1  ]. symbol  ]  -  1; 


void  recur*ive_f lush (  table  ) 

CONTEXT  ‘table; 

int  i; 

if  (  table->link*  !■  NULL  ) 

for  (  i  -  0  ;  i  <“  table->max_index  ;  i++  ) 
if  (  table->link* [  i  ] .next  !■  NULL  ) 

recuraive_f lush (  table->link* [  i  ] .n*~t  ); 
re*cale_table (  table  ) ; 


void  f lu*h_model ( ) 

< 

puto(  'F' ,  stdout  ); 

recur* ive_fluah (  context* [  0  ]  ); 

} 

static  unsigned  short  int  code;  /*  The  present  input  code  value 

static  unsigned  short  int  low;  /*  Start  of  the  current  code  range 

static  unsigned  short  int  high;  /*  End  of  the  current  code  range 

long  underflow_bit*;  /*  Number  of  underflow  bit*  pending 


void  initialize_arithmetic_encoder (} 
{ 

low  -  0; 

high  -  Oxffff ; 

underflow  bits  -  0; 


void  flush  arithmetic_encoder (  stream  ) 
BIT_FILE  ‘stream; 

{ 

OutputSit (  stream,  low  £  0x4000  ) ; 

under f low_bit •++ ; 

while  (  underflow_bits—  >  0  ) 

OutputBit (  stream,  -low  £  0x4000  ) ; 
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OutputBlt a (  atraaa,  OL,  16  ); 

) 

void  ancoda_ayabol (  atraaa,  a  ) 

BIT  FILE  ‘atraaa, - 
SYMBOL  *e; 

{ 

long  ranga; 

ranga  ■  (lone)  (  high- low  )  +  1; 
high  a  low  +  (unaignad  abort  Int) 

((  ranga  *  a->hlgh_eount  )  /  a->acala  -  1  ); 
low  -  low  4-  (unaignad  abort  lnt) 

( (  ranga  *  a->low  count  )  /  a->aoala  ) ; 

f or  (  ;  ;  )  { 

if  (  (  high  4  0x8000  )  —  (  low  t  0x8000  )  )  { 

OutputBlt (  atraaa,  blgb  4  0x8000  ); 
whila  (  undarf low_bit a  >  0  )  { 

OutputBlt (  atraaa,  -high  4  0x8000  ) ; 
undarf low_blt a— ; 

) 

) 

alaa  If  (  (  low  t  0x4000  )  4(  • (  blgh  C  0x4000  ) )  ( 
undarflow  blta  +»  1; 
low  4-  OxJfff ; 
blgb  |  0x4000; 

)  alaa 

raturn  ; 
low  «-  1; 
blgb  «»  1; 
high  |-  1; 

) 

) 

ahort  int  gat_currant_count (  a  ) 

SYMBOL  *a;  *" 

{ 

long  ranga; 
ahort  lnt  oount; 

ranga  -  (long)  (  high  •  low  )  +  1; 
count  a  (ahort  int) 

((((long)  (  coda  -  low  )  +  1  )  *  a->aoala-l  )  /  ranga  ) 

raturn (  oount  ) ; 

) 

void  inltializa_aritbaatic_dacodar (  atraaa  ) 

BIT_FILB  ‘atraaa; 

( 

int  i; 
coda  a  o; 

for  (  i  •  0  ;  1  <  16  ;  i++  )  ( 
coda  «<<•  1; 

coda  >a  InputBlt (  atraaa  ) ; 

) 

low  -  0; 
high  a  Oxffff; 

) 

void  raaova_ayabol_froa_atraaa(  atraaa,  a  ) 

BIT_FILE  ‘atraaa; 

SYMBOL  *a; 

( 

long  ranga; 

ranga  a  (long) (  high  -  low  )  +  1; 
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high  “  low  +  (unsigned  short  int) 

( (  rang*  *  s->hlgh_oount  )  /  s->soslo  -  1  )  ; 
low  «  low  +  (unslgnod  short  lnt) 

( (  rsngs  *  s->low_count  )  /  s->scsl*  ) ; 

for  (  ;  ;  )  ( 

If  (  (  high  S  0x8000  )  —  (  low  s  0x8000  )  )  { 

) 

si so  if  ((low  s  0x4000)  —  0x4000  SC  (high  S  0x4000)  —  0  )  { 
oods  0x4000; 
low  *«  0x3f f f ; 
high  |-  0x4000; 

)  slow 

return; 
low  «-  1; 
high  <<“  1; 
high  |*  1; 
oods  <<”  1; 

cods  +=  InputBlt (  strssa  ) ; 

} 

) 
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The  Discrete  Transform  Processor 


# include  <stdio.b> 

(include  <graph.b> 

(include  <oonio.b> 

(include  <atring.h> 

(include  <stdlib.h> 

(include  <math.h> 

(define  RGB(r,g,b) (0x3F3F3FL  6  ( (long) (b)  «  16  |  (g)  «  8  |  (r) ) ) 

/•Global*  begin*/ 

float  block, o [ 64] [64] , tempi. tamp [64] [64]; 
unsigned  ohar  red [256] , blue [256] , green [256] , cp; 

ohar  string [80] , stringl [80] , strip [80] , cosine [80] , transfora [80] , savefila [80] ; 
int  j  j, j j j, iii, ii, n, L, m, i, j, k, xdim, ydim, mod* , header , updown, expands iso; 
int  data [64] [64] , resultl, result2, thrash, zonal, blocksixa; 
int  expandx,  expandy; 

struct  _videoconfig  ve; 

FILE  *input_file, *inpalette, *infile, *out; 

/*Globals  end*/ 

void  hadaaardO 

{ 

for  (i«l;i<«n/2;i++) 

[ 

for  ( j«*(n/2)+l; j<»n; j++) 

< 

c[i-l] [ j-l]-c[i-l] [ j-l-n/2] ; 

} 

) 

for  (i  ■  n/2+1;  i<**n;i++) 

{ 

for  (j  «  l;)<-n/2; j++) 

< 

c[l-l] [j-l]-c[i-n/2-l] [3-1]  ; 

) 

) 

for  (i  ■  n/2+1 ;i<-n;i++) 

{ 

for  (j  ■  (n/2)+l; j<-n; j++) 

{ 

c[i-l]  [j-1]— c[i-n/2-l]  [  J-n/2-1]  ; 

) 

) 

} 

/•Main  program  begins*/ 
main  () 

< 

/•Read  in  information*/ 
infile«fopen (’"tflle", "r") ; 
f scanf (infile, "%i" , (mode) ; 
fscanf (infile, "%s", string) ; 
f scanf (infile, "%sn , stringl) ; 
fscanf (infile, "41" , 6 xdim) ; 
fscanf (infile, ”%i" , sydim) ; 
fscanf (infile, "%i” , (header) ; 
fscanf (infile, "%in, cupdown) ; 
fsoanf (infile, "%s", cosine) ; 
fscanf (infile, "%i", (blocks ire) ; 
fsoanf (infile, "%s" .transform) ; 
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faoanf (infila, "%a* . aavafila) ; 
faoanf (Infila, "»i" , cttareah) ; 
faoanf (Infila , "*i” , (zonal) ; 
faoanf (infila, "%a", atrip) ; 
faoanf (infila, "%i" , cexpandaize) ; 

/•Open  filaa*/ 

input_fila«fopan (stringl, "r-fb") ; 
inpalatta-f opan (at ring, "r+b") ; 
out-fopan (aavafila, "w+b") ; 

/•Read  in  palette*/ 
for  <i-0,i<-255;i++) 

( 

faoanf (inpalatta, "to", Cop) ; 
rad[i]-op; 

> 

for  (i-0;i<-255;i++) 

( 

faoanf  (inpalatta,  "%c",Ccp)  ; 
green (i]«cp; 

) 

for  <i«0;i<-255;i++) 

{ 

faoanf (inpalatta, "Co" , Cep) ; 
blue (i]«cp; 

) 

if  (baadarfaO) 

{ 

for  (i»l;i<»baadar;i++) 

{ 

faoanf (input_fila, "to", Cop) ; 

) 

) 

/•Setup  coefficient  matrix*/ 
if  (atrncmp(coaina, "COSINE", 6)«—0) 

( 

for  (k  »  0;  k  <■  (axpandaiza-1) ;  k++) 

{ 

for  (n  ■  0;  n<- (axpandaiza-1) ;n++) 

( 

if  (k  “  0)  (c[k] [n]-1.0/aqrt ( (float) axpandaiza) ; ) 
if  (k  0)  (c(k] [n]-aqrt (2.0/ (float) axpandaiza) *coa( 
3 . 14159* (2 .0*n+l .0) *k/ (2.0* (float) axpandaiza) ) ; ) 

} 

) 

) 

if  (atrncmp(ooaina,  "SINE",  4)«0) 

{ 

for  (k  »  0;  k  <*  (axpandaiza-1);  k++) 

( 

for  (n  «  0;  n<“ (axpandaiza-1) ;n++) 

{ 

c[k]  [n]-aqrt  (2 . 0/  (  (float)  axpandaiza-fl .  0) )  *ain  ( 

3 . 14159* (n+1 . 0) * (k+1 . 0) / (1 . 0+ (float ) axpandaiza) ) ; 

) 

> 

) 

if  (atrncmp (cosine, "BAD", 3) ~”0) 

( 

c[0] (0)-1.0; 
n»2; 

badamard() ; 

n-4; 
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hadamard () ; 

n*4; 

hadamard () ; 
n»8  ; 

hadmrd  ( ) ; 

nali; 

hadamard ( )  ; 

n-32; 

hadamard ()  ; 

n*64 ; 

hadamard ()  ; 

for  (1  ■  0;  1  <»63;i++) 

( 

for  (j  -  0;3<-63;j++) 

( 

c[i] [j]-c[i] [ 3 ] / aqrt ( (float) axpandaiza) ; 
) 


raaultl  ■  strncmp (transform, "INVERS" , 6) ; 
if  (raaultl  —  0) 

( 

zonal  *  axpandaiza; 

for  (k  ■  0;  k  <■  (axpandaiza-1) ;  k++) 

( 

for  (n  -  0;  n<» (oxpandalza-1) ;n++) 

( 

tamp [n] [k]  ■  c[k][n]; 

) 

) 

for  (k  *  0;  k  <*  (axpandaiza-1) ;  k++) 

{ 

for  (n  -  0;  n<* (axpandaiza-1) ;n++) 

( 

c[n][k]  *  tamp [n] [k] ; 

) 


block  -  (float) axpandaiza; 


block  *  1.0/ (float) axpandaiza; 

) 

/*Sat  vidao  moda*/ 

if  (mod*— 1)  _aatvidaomoda (_MRBS256C0L0R) ; 
if  (moda— 2)  _aatvidaomoda (_VRBS256C0L0R) ; 
if  (moda— 3)  _aatvidaomoda (_SR*S256COLOR) ; 
if  (moda— 4)  _a*tvidaomod* (~XR*S256COLOR) ; 
if  (moda— 5)  _aatvidaomoda (_ZR*S256COLOR) ; 

_gatvidaooonf lg(tvc) ; 

/•Enabla  palett**/ 
for  (i»0;i<*255;i++) 

( 

_ramappalatta (i,RGB(rad[i] /4 , graan [1] /4, blua  £ 1 ] / 4 )  )  ; 

/*Oat  dimansions*/ 

ydim  -  (Int) ( (float) ydim/ (float) blockaiza)  *  axpandaiza  +  ydim  %  blockaiza; 
xdlm  “  (int) ( (float) xdim/ (float) blockaiza)  »  axpandaiza  +  xdim  %  blockaiza; 

/*Parform  transform*/ 
for  (i*0;i<*(ydim-l) ;i++) 

( 

for  (j*0; 3<* (xdim-1) ; j++) 

( 
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if  < ( (i  *  axpandaixa)  <  blookaiza  )  sc  ((J  %  axpandaixa)  <  blockaisa) ) 
{ 

faeanf (input_fila, "to" , cop) ; 
k  «  cp; 

) 

alaa 

( 

k  -  128; 

) 

_aatcolor (k) ; 

if  (updown  "  0)  _aatpixal(j,i); 
if  (updown  —1)  _aatpixal  ( j,  ydim-l-i)  ; 

) 

) 

for  (jj  -  0; j]<-( (ydim/axpandaiao) ) ;Jj++) 

( 

jjj  “  j j*axpandaixa; 
if  ((  ydim- j j j)  !-  0) 

( 

•xpandy  ■  ydim- j  j  j ; 

if  (axpandy  >  axpandaixa)  a xpandy  ■  axpandaixa; 
for  (ii  -  0;  ii  <■  ( (xdim/axpandaiza) ) ;ii++) 

( 

iii  -  ii*axpandaixa; 
if  ( (xdim-iii)  I-  0) 

( 

•xpandx  «  xdim-iii; 

if  (axpandx  >  axpandaixa)  • xpandx  -  axpandaixa ; 
for  (i  m  0;  i<» (axpandaixa-1) ; 1++) 

{ 

for  (j  ■  0; j<- (axpandaixa-1) ; j++) 

( 

d*ta[j]ti]  -  _gatpixal ( J+iii, i+j jj) -128; 
if  (  j  >  (axpandx-1) )  data[j]tl]  »  0; 
if  (i  >  (axpandy  -  1))  data[j] [i]  -  0; 

> 

) 

for  (L  *  0;  L<axpandaixa;L++) 

{ 

tampl  m  0; 

for  (m  *  0;  m<axpandaixa;m++ ) 

{ 

for  (n  m  0;  n  <axpandaixa;n++) 

{ 

tampl  +-  (float)  (data  [m]  [n]  *c  [L]  [n] )  ; 

) 

tamp[m]  [L] -tampl; 
tampl  -  0; 

) 

) 

for  (L  *  0;  L  <  axpandaixa;  L++) 

( 

tampl  -  0; 

for  (m  -0;m<axpandaixa;m++) 

{ 

for  (n  -  0;n<axpandaixa;n++ ) 

( 

tampl  +-c[m] [n] *tamp[n] [L] ; 

} 

if  (tampl  >-0) 

( 

data(m]  [Ii]  -  (int)  (tampl*blook+0.5)  ; 

> 

alaa 

{ 
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data[m]  (L]  «  (lot)  (tanpl*blook-0 .5) ; 

> 

tnpl  ■  0; 

} 

) 

for  (1  »  0;  !<■ (axpandy-1) ; i++) 

{ 

for  (j  ■  0; J<- (axpandx-1) ; J++) 

{ 

if  (datatj] tt]  >  127)  data  [  j] [i]  -  127; 

if  (datatj] ti]  <  -128)  datatj]  ti]  -  -128; 
if  (raaultl  »«  0) 

( 

if  (aba (data lj] [i])  <-  thraab)  datatj]  (i]  -  0; 
if  ((j>*zonal)  ||  (i>-zonal)) 

( 

data(J] (i]  -  0; 

) 

) 

_aatcolor ( (char) (datatj] £i] )+128) ; 

_aatpixal (j+iii, i+J j j) ; 

] 

} 

) 

) 

} 

) 

for  (i  »  0  ;  i  <*(ydim-l) ;i++) 

( 

for  (J  -  0;  j  <- (xdim-1) ; j++) 

( 

k  ■  _g«tpixal ( J, i) ; 

if  (atmcmp(atrip,  "OOK'T".  5)«*0)  fprintf  (out,  "%o" ,  k)  ; 

•la* 

t 

if  (((j  %  blockaiza) <  zonal)  t(  ( (i  %  bloekaiza)  <  zonal)) 

( 

fprintf (out, "%o",k) ; 

} 

> 

) 

) 

/•Cloaa  filaa*/ 

_foloaaall () ; 

/•Pauaa*/ 
gatob() ; 

/•Rat urn  to  taxt  mod**/ 
aatvidaomoda (_DEF AULTMODE ) ; 

T 

/•Main  program  and**/ 
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The  Entropy  Calculator 


# include  <math.h> 

♦include  <*tdio.h> 

/•Main  program  begins*/ 
main() 

{ 

ohar  string[80]; 
unsigned  ohar  p; 
int  i,k; 

float  j [256] .pixel, entropy ; 

rilX  *input_file, *lnfil«; 

/•Initialization*/ 
entropy  «  0; 

for  (i-0;i<-255;i++)  j[i]-0; 
plxel-0; 

/•Read  in  information*/ 
input_fiie  -  fopen (~tfile", "r") ; 
f aeanf (input_f ile, "%a" , string) ; 

/•Open  file*/ 

infile  —  fopen (string, "r+b") ; 

/•Calculate  and  display  entropy*/ 
while  ( I feof (infile) ) 

{ 

fscanf (infile, "%c" , tp) ; 
pixel  *  pixel  +  1; 

*  -  p; 

j[k]-j[k]+l; 

) 

for  (i-0;i<-255;l++) 

( 

if  ( j  [i]  1*0) 

{ 

entropy  -  entropy+j [i] *log ( j [i] /pixel) ; 

) 

) 

entropy  *  -entropy/ (pixel*log (2) ) ; 
printf  ('\nSntropy  *■  %f”,  entropy)  ; 
printf (~\nBntropy  encoding  can  achieve'); 
prlntfC  a  «f  to  1  compression. \n', 8/entropy) ; 

/♦Close  files*/ 

_fdoseall() ; 

) 

/•Main  program  ends*/ 
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The  Mean  Squared  Error  Calculator 


# include  otdio.b> 

•include  <atring.b> 

•include  <stdlib.h> 

/•Global#  begin*/ 

char  string [80] , stringl [80] , atring2 [80] ; 
unsigned  ebar  c,  d,c2; 
int  k,k2,kl; 
float  sum, n; 

FILE  *input_f ilel, *input_file2, *infile; 
/•Global#  and*/ 

/•Main  program  begins*/ 
aain() 

{ 

/•Road  in  information*/ 
infile*fopen('>tfile",  "r") ; 
fscanf (infile, "%#", string) ; 
fscanf (infile, "%s", stringl) ; 
f soanf (infile, "%s” , string2) ; 
input_filel»f open (string, "r+b") ; 
input_file2«f open (stringl, "r+b") ; 

/•Initialization*/ 
n  ■  0; 
sum  •  0; 

/•Calculate  MSE*/ 
label: 

fscanf (input_filel, "*e", tel) ; 
fscanf (input_file2, "*cn, Sc2) ; 
kl  -  d-c2; 
kl  -  kl*kl; 
sum  *  sum  +  kl; 
n  ■  n  +  1; 

if  (feof (input_f ilel)  1*0) 

{ 

goto  labell; 

) 

if  (feof (input_f ile2)  1*0) 

{ 

goto  labell; 

) 

goto  label; 

/•Display  MSE*/ 

Isbell: 

printf ("Tbe  Mean  Square  Error  is  %f  * , sum/a) ; 

/•Close  files*/ 

_fdoseall  () ; 

> 

/•Main  program  ends*/ 
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The  Histogram  Processor 


/"Must  bs  compiled  with  ths  small  msmory  modal*/ 

lincluds  <mstb.h> 

lincluds  <«tdio.h> 

iinoluds  < graph . h> 

lincluds  <conio.h> 

lincluds  <bios.h> 

Idefine  WONTS  6 

/•Main  program  begins"/ 

Min  () 

{ 

char  atring[80] , stringl[80] ; 
unsignsd  char  p, list [20]; 
int  i,  J,  k,  vcl, vc2 , pix_val , ch; 

float  sum,bigj,kl,  jj  (258] , pixel, sntropy,  factor; 

struat  _vidsoconfig  vc; 

FILE  *input_file, "infils, "outfils; 

/"Initialization*/ 

_ragistsrf onts (** .FON”) ; 

_sstfont (list) ; 
entropy-0 ; 

for  (i-0;i<«255;i++)  jj(i]«0; 
pixel-0. 0; 

/"Rsad  in  information*/ 
input_fils  »  fopsn (*tflls”, "r") ; 
fscanf (input_fils, string) ; 
fscanf (input_fils, "%l",4ch) ; 

/"Build  histogram*/ 

infils  *  fopsn (string, "r+b") ; 

whils  (Ifsof (infils)) 

{ 

fscanf (infils, "*c", ip) ; 
pixsl  -  pixsl  +  1.0; 
k  -  p; 

33 (k]»JJ (k]+l; 

} 

/"Normalizs  matrix  Jj  |k]  to  psrcsntagss  of  total*/ 
big j-0 . 0 ; 

for  (k«0;k<«255;k++) 

{ 

33  (k] -33  d'1  /pixel; 

if  (33 (k]>bagj)  bigj-jj[k]; 

> 

factor  •>  1.0/bigj; 


/"Display  histogram*/ 
_satvidsomoda (_VRES16C0L0R) ; 
_gstvidsoconf ig(ivc) ; 
vcl  ”  vc.numxpixsls; 
va2  •  vc.numypixsls; 

_sst color (4) ; 
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_sattaxt position (0, 0) ; 

_movato (0, 0) ; 

•print f (string, "%  .2f  %%" ,  100 . 0/factor) ; 

_outgtaxt (string) ; 
for  (k  -  0;k<-255;k++) 

< 

kl  ■  ( (float) k/255 . 0) * (  (f loat) vc . numxpixala-20 . 0) ; 

_movato ( (int) (10 . 0+kl) , vc2-10) ; 

“linatof (int) (10. 0+kl),  (int)  < (vc2-10) * <1 . 0- (float) factor* [k] ) )  ); 

) 

if  (Icb)  goto  labal; 

facanf (input_fila, "%a" , atringl) ; 

outfila-fopan (stringl, "»+b") ; 

*  for  (j-0; j<480; j++) 

< 

for  <i-0;i<640;i++) 

{ 

pix_val«_gatpix#l (i, j)  ; 
if  (pix_val—0)  ch-255  ; 
alaa  ch»C , 

fprintf (out f J la, "%cn,  ch) ; 

) 

) 


/*Pausa*/ 
gatch ( ) ; 

/•Raturn  to  taxt  moda*/ 

_*at vidaomoda (_DKF  AULT140DE ) ; 

/*Cloaa  filaa*/ 
fcloaaall  () ; 

} 

/•Main  program  anda*/ 
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PC/TCP  Packet  Driver  Specification 


Aavision  1.09 
September-14-1989 
Dmlopad  by: 

FTP  Software,  Inc . 

2C  Prlncoaa  St. 

Wakefield,  MA  01880-3004 
(817)  24C-0900 


1  Document  Conventions 

All  anabaza  In  this  document  are  given  in  C-atyle  representation.  Decimal  is 
expressed  as  11,  hexadecimal  is  expressed  as  0x08,  octal  is  expressed  as  013.  All 
reference  to  network  hardware  addresses  (source,  destination  and  multicast)  and 
demultiplexing  information  for  the  packet  headers  assumes  they  are  represented  as 
they  would  be  in  a  MAC- level  packet  header  being  passed  to  the  send _pkt ( )  function. 


2  Introduction  and  Motivation 

This  document  describes  the  programming  interface  to  FTP  Software  Packet  Drivers. 
Packet  drivers  provide  a  simple,  common  programming  interface  that  allows  smltiple 
applications  to  share  a  network  interface  at  the  data  link  level.  The  packet 
drivers  demultiplex  incoming  packets  among  the  applications  by  using  the  network 
media's  standard  packet  type  or  service  access  point  field(s). 

The  intent  of  this  specification  is  to  allow  protocol  stack  implementations  to  be 
independent  of  the  actual  brand  or  modal  of  the  network  interface  in  use  on  a 
particular  machine .  Different  versions  of  various  protocol  stacks  still  must  exist 
for  different  network  media  (Ethernet,  802.5  ring,  serial  lines),  because  of 
differences  in  protocol -to-physieal  address  mapping,  header  formats,  marl  anna 
t ran ami saion  units  (MTUs)  and  so  forth. 

The  packet  driver  provides  calls  to  initiate  access  to  a  specific  packet  type,  to 
end  access  to  it,  to  send  a  packet,  to  get  statistics  on  the  network  interface  and 
to  get  information  about  the  interface. 

Protocol  implementations  that  use  the  packet  driver  can  co^letely  coexist  on  a  PC 
and  can  smke  use  of  one  another's  services,  whereas  smltiple  applications  which  do 
not  use  the  driver  do  not  coexist  on  one  machine  properly.  Through  use  of  the 
packet  driver,  a  user  could  run  TCP/IP,  XHS,  and  a  proprietary  protocol 
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implementation  such  as  DBCnot,  Banyan'  a,  LifeBet'  a,  Bovell'  a  or  3Coa'  a  without 
tha  difficulties  assoeiatad  with  preempting  tha  natwork  interface. 

Appl i cat i ona  which  usa  tha  paeket  dtivar  can  also  run  on  aaw  natwork  hardware  of 
tha  same  class  without  being  modified;  only  a  now  paekat  driver  naad  ba  supplied . 

fleveral  levels  of  paekat  driver*  are  described  in  this  specification .  Tha  first 
is  tha  basic  packet  driwar,  which  provides  minimal  functionality  but  should  ba 
simple  to  implement  and  which  uses  vary  few  host  re souroas.  Tha  basic  driver 
provides  operations  to  broadcast  and  receive  packets.  Tha  second  driver  is  tbs 
extended  paekat  driver,  which  is  a  superset  of  tha  basic  driver.  Tha  extended 
driver  supports  lass  cosssonly  used  functions  of  tha  network  intarfaca  such  as 
smlticast,  and  also  gathers  statistics  on  us*  of  tha  interface  and  makes  these 
available  to  the  application .  The  third  level,  the  high -performance  functions, 
supports  performance  improvements  and  tuning. 

Functions  which  ar*  available  in  only  tha  extended  packet  driver  era  noted  as  such 
in  their  descriptions.  All  basic  packet  driver  functions  ar*  available  in  the 
extended  driver.  The  high-performance  functions  may  be  available  with  either  basic 
or  extended  drivers. 


3  Identifying  Network  interfaces 

network  interfaces  are  n smart  by  a  triplet  of  integers,  <class,  type,  number> .  The 
first  number  is  the  class  of  interface.  The  class  tells  what  kind  of  media  the 
interface  supports:  DXC/Znt*l/X*rox  (DZX  or  Bluabook)  Bthernet,  ZSSK  802.3 
Btbernet,  ZKXB  802.5  Token  King,  ProVXT-10,  Appletalk,  serial  line,  etc. 

The  second  number  is  the  type  of  interface:  this  specifies  a  particular  instance 
of  an  interface  supporting  a  class  of  network  medium.  Znterfac*  types  for  Bthernet 
might  name  these  interfaces:  3Com  3C503  or  3C505,  Inter lan  BZ5210,  Onivation,  BZCC 
Data  Networks  ZSOLAn,  Ongermann-Bass  BZC,  etc.  Znterfac*  types  for  ZSXB  802.5 
might  name  these  interfaces:  ZBM  Token  King  adapter,  Froteon  pl340. 

The  last  number  is  the  interface  number.  Zf  a  machine  is  equipped  with  mere  than 
on*  interfaa*  of  a  class  and  type,  the  interfaces  must  be  numbered  to  distinguish 

between  them. 

An  appendix  details  constants  for  classes  and  types.  The  class  of  an  interface  is 
an  8-bit  integer,  and  its  type  is  a  16  bit  integer. 

Class  and  type  constants  are  managed  by  FTP  Software.  Contact  FTP  to  register  a 
new  class  or  type  number . 

The  type  OxFFTF  is  a  wildcard  type  which  swtebas  any  interface  in  the  specified 
class.  Zt  is  unnecessary  to  wildcard  inter faoa  numbers,  as  0  will  always  correspond 
to  the  first  interface  of  the  specified  class  and  type. 

This  specification  has  no  provision  for  the  support  of  multiple  network  interfaces 
(with  similar  or  different  characteristics)  via  a  single  Paekat  Driver  and  associated 
interrupt.  He  feel  that  this  issue  is  best  addressed  by  loading  several  Packet 
Drivers,  on*  per  interface,  with  different  interrupts  (although  all  may  be  included 
in  a  single  TSK  software  module) .  Applications  software  must  check  the  class  and 
type  returned  from  a  driv*r_inf o { )  call  in  any  case,  to  make  sure  that  the  Packet 
Driver  is  for  the  correct  media  and  packet  fonsat.  This  can  easily  be 
generalised  by  searching  for  another  Packet  Driver  if  the  first  is  not  of  the  right 
kind. 
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4  Initiating  Driver  Operations 


Dm  packet  driver  la  Invoked  via  a  software  interrupt  in  the  range  0x60  through 
0x60.  This  document  does  not  specify  a  particular  interrupt,  but  describes  a 
Mechanise  for  locating  which  interrupt  the  driver  uses.  The  interrupt  amst  be 
configurable  to  avoid  conflicts  with  other  pieces  of  software  that  also  use  software 
interrupts.  The  program  which  installs  the  packet  driver  should  provide  soae 
earthen! an  for  the  user  to  specify  the  interrupt. 

The  handler  for  the  interrupt  is  assumed  to  start  with  3  bytes  of  executable  code; 
this  can  either  be  a  3-byte  juap  instruction,  or  a  2-byte  jump  followed  by  *  MOP 
(do  not  specify  "jap  short'  unless  you  also  specify  an  explicit  HOP) .  This  must 
be  followed  by  the  null-terminated  ASCII  text  string  'PICT  DRVR'.  To  find  the 
interrupt  being  used  by  the  driver,  an  application  should  scan  through  the 
handlers  for  vectors  0x60  through  0x80  until  it  finds  one  with  the  text  string  'PICT 
DRVR”  in  the  12  bytes  immediately  following  the  entry  point. 


5  Link-layer  Demultiplexing 

If  a  network  media  standard  is  to  support  simultaneous  use  by  different  transport 
protocols  (e.g.  TCP/IP,  XMS,  OSI),  it  must  define  soma  link-level  mechanism  which 
allows  a  host  to  decide  which  protocol  a  packet  is  intended  for.  In  DXX  Ethernet, 
this  is  the  16-bit  'ethertype'  field  immediately  following  the  6-byte  destination 
and  source  addresses.  In  IEEE  802.3  where  802.2  headers  are  used,  this  information 
is  in  the  variable-length  802.2 

header.  In  Proteon's  ProNET-10,  this  is  done  via  the  32-bit  'type'  field.  Other 
media  standards  may  demultiplex  via  a  method  of  their  own,  or  802.2  headers  as  in 
802.3. 

Our  acoess_type()  function  provides  access  to  this  link-layer  demultiplexing.  Each 
call  establishes  a  destination  for  a  particular  type  of  link-layer  packet,  which 
remains  in  effect  until  releasa_type ( )  is  called  with  the  handle  returned  by  that 
particular  aocess_type() .  The  link-layer  rlemu 1 tlplexing  information  is  passed  via 
the  type  and  typelen  fields,  but  values  and  interpretation  depend  on  the  class  of 
packet  driver  (and  thus  on  the  madia  in  use) . 

A  class  1  driver  (DIE  Ethernet)  should  expect  type  to  point  at  an  'ethertype' 
value  (in  network  byte  order,  and  greater  than  0x0 SEE) ,  and  might  reasonably  require 
typelen  to  equal  2.  A  class  2  driver  could  require  4  bytes.  However,  a  class 
3  (802.5)  or  11  (Ethernet  with  802.2  headers)  driver  should  be  prepared  for  typelen 
values  between  2  (for  the  DSAP/SSAP  fields  only)  and  8  (3  byte  802.2  header  plus 
3-byte  Sub-Network  Access  Protocol  extension  header  plus  2-byte  'ethertype'  as 
defined  in  RPC  1042) . 


6  Programming  Interface 

All  functions  are  accessed  via  the  software  interrupt  determined  to  be  the  driver's 
via  the  mechanism  described  earlier.  On  entry,  register  AH  contains  the  code  of 
the  function  desired. 

The  handle  is  an  arbitrary  integer  value  associated  with  each  MAC-level  demultiplex¬ 
ing  type  that  has  been  established  via  the  access_type  call.  Internally  to  the 
packet  driver,  it  will  probably  be  a  pointer,  or  a  table  offset.  The  application 
calling  the  packet  driver  cannot  depend  on  it  assuming  any  particular  range,  or 
any  other  characteristics.  In  particular,  if  an  application  uses  two  or  more  packet 
drivers,  handles  returned  by  different  drivers  for  the  same  or  different  types  may 
have  the  same  value. 
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Met*  that  iom  o f  the  function*  defined  below  am  laballad  as  extended  dtiw 
functions  »■«*  high^parfoiaaiMa  function* .  Because  thaaa  ara  not  required  for  basic 
network  operations,  thair  implementation  aay  ba  conaidarad  optional.  Program* 
wishing  to  asa  thaaa  functions  should  uaa  tha  drivax_info()  function  to  datarmina 
if  thay  ara  available  in  s  given  paokat  driver. 

6.1  Entry  conditions 

FTP  Softwara  application*  which  call  tha  packet  driver  ara  coded  in  Microsoft  C 
and  assembly  language.  All  necessary  registers  ara  saved  by  rTP's  routines  before 
ZMT  instruction  to  call  tha  packet  driver  is  executed.  Our  current  receiver () 
functions  behave  as  follows:  DS,  SS,  SP  and  the  flags  are  saved  and  restored.  All 
other  registers  My  be  modified,  and  should  be  saved  by  the  packet  driver,  if 
necessary.  Processor  interrupts  My  be  enabled  while  in  the  upcall,  but  the  upcall 
doesn't  assume  interrupts  are  disabled  on  entry.  On  entry,  receiver ( )  switches  to 
a  local  stack,  and  switches  back  before  returning. 

Mote  that  som  older  versions  of  PC/TCP  My  enable  interrupts  during  the  upcall, 
and  leave  them  enabled  on  return  to  the  Packet  Driver. 

■hen  using  a  class  1  driver,  PC/TCP  will  normally  make  5  acce**_type ()  calls  for 
ZP,  ARP  and  3  kinds  of  Berkeley  Trailer  encapsulation  packets.  On  other  media, 
the  number  of  handles  we  open  will  vary,  but  it  is  usually  at  least  two  (ZP  and 
ARP) .  Zmplementors  should  make  their  tables  large  enough  to  allow  two  protocol 
stacks  to  co-exist.  We  recommend  support  for  at  least  10  open  handles  simulta¬ 
neously. 

6.2  Byte  and  bit  ordering 

Developers  should  note  that,  on  many  networks  and  protocol  families,  the 
byte-ordering  of  16-bit  quantities  on  the  network  is  opposite  to  the  Mtive 
byte-order  of  the  PC.  (802. 3  Token  Ring  is  an  exemption).  This  means  that 
DBC-Zntel -Xerox  ethertype  values  passed  to  acceaa_type ( )  must  be  swapped  (passed 
in  network  order) .  The  ZZK  802 . 3  length  field  needs  similar  handling,  and  cam 
should  ba  taken  with  packets  passed  to  send jpkt(),  so  all  fields  are  in  the  proper 
order.  Developers  working  with  MSB  I AMs  (802.5  and  PDDZ)  should  be  aware  that  a  MAC 
address  changes  bit  order  depending  on  whether  it  appears  in  the  header  or  as  data. 

6.3  drivarJnfoO 

driver_info (handle)  AB  ■»  1,  AL  “  255 
int  handle;  BX  /*  Optional  */ 

error  return: 

carry  flag  set 
error  code 
possible  errors: 

BJkD_HARDLX 

non-error  return : 

carry  flag  dear 
version 
class 
type 
number 

functionality 

1  mm  basic  functions  present. 

2  mm  basic  sad  extended  present. 

5  mm  basic  and  high-performance. 

6  mm  basic,  high-performance,  extended. 

255  mm  not  instdled. 


BX 

cs 

DX 

CL 

DS:SZ 

AL 


DR 

/*  older  drivers  only  */ 
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This  function  returns  Information  about  tha  intarfaoa.  Tbm  nnion  is  assumed  to 

bm  u  inttnwl  hudutri  driver  identifier.  Zn  earlier  versions  of  this  spec,  the 
argument  (which  east  have  been  obtained  vis  aceess_type() )  was  required. 

Zt  is  now  optional,  but  drivers  developed  according  to  versions  of  this  spec  previous 

to  1.07  awy  require  it,  so  ispleaente r s  should  take  care. 

6.4  «ccess_typ«{) 

lnt  acceaa_type (if_clase,  if_type,  if_number,  type,  typelen,  receiver)  AH  —■  2 
int  if  class;  AL 

int  if  “type;  BX 

int  if_nuaber ;  DL 

char  far  ‘type;  DS:8Z 

unsigned  typelen;  CX 

int  (far  ‘receiver) () ;  KS:DZ 

error  return: 

carry  flag  set 

error  code  OB 

possible  errors: 

BO  CLASS 
B0~TYPX 
B0JH0MBKR 
BAD_TYP* 

B0_iPACX 

TTPB_ZMOSB 

non-error  return: 

carry  flag  clear 

handle  AX 

receiver  call: 

(‘receiver) (handle,  flag,  lea  [ ,  buffer)) 
int  handle;  BX 

int  flag;  AX 

unsigned  len;  CX 

if  AX  —  1, 

char  far  ‘buffer;  DS:SZ 


Initiates  access  to  packets  of  tbe  specified  type.  The  argument  type  is  a  pointer 
to  a  packet  type  specification.  The  argument  typelen  is  tbe  length  in  bytes  of 
the  type  field.  Tbe  argument  receiver  is  a  pointer  to  a  subroutine  which  is  called 
when  a  packet  is  received.  It  the  typelen  argument  is  0,  this  indicates  that  the 
aaller  wants  to  natch  all  packets  (match  all  requests  My  be  refused  by  packet 
drivers  developed  to  conform  to  versions  of  this  spec  previous  to  1.07). 

When  a  packet  is  received,  receiver  is  called  twice  by  the  packet  driver.  Tbe 
first  time  it  is  called  to  request  a  buffer  from  the  application  to  copy  the  packet 
into.  AX  ■  0  on  this  call.  The  application  should  return  a  pointer  to  tbe  buffer 
in  BS:OZ.  Zf  the  application  has  no  buffers,  it  My  return  0:0  in  KS:DZ,  and  tbe 
driver  should  throw  away  tbe  packet  and  not  perform  the  second  call. 

Zt  is  important  that  the  packet  length  (CX)  be  valid  on  the  AX  me  0  call,  so  that 
the  receiver  can  allocate  a  buffer  of  the  proper  sise.  This  length  (as  well  as 
the  copy  performed  prior  to  the  AX  me  1  call)  must  include  the  MAC  header  and  all 
received  data,  but  not  the  trailing  Frame  Check  Sequence  (if  any) . 

On  tbe  second  call,  AX  ■■  1.  This  call  indicates  that  the  copy  has  been  completed, 
and  tbe  application  My  do  as  it  wishes  with  the  buffer.  The  buffer  that  the  packet 
was  copied  into  is  pointed  to  by  DS:SZ. 
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6.5  releaae_type() 
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•net  ntnn: 

emy  flag  aat 

•rror  coda  OB 

pettlbl*  errors : 

BAD  BABBLE 
BO_SVACS 

non-arror  ratnza: 

carry  flag  claar 

length  CX 

Copies  the  currant  local  aat  address  of  tba  latarfaca  into  buf.  Tha  buffar  buf  la 

laa  bytaa  long.  Tha  actual  nuaber  of  bytaa  eopiad  la  raturaad  in  CX.  Zf  tba 

BOjBBACE  arror  la  raturaad,  tbia  indicator  that  laa  was  inaufficiant  to  bold  tba 
local  aat  addraaa.  Zf  tba  addraaa  baa  baaa  changed  by  aat_addraaa() ,  tba  new 
addraaa  abould  ba  raturaad. 

6.9  r«Mt_intarface{)  , 

raaat_iatarf aoa (bandla)  AB  —  7 

int  haadla;  BX 

arror  ratura: 

carry  flag  aat 

arror  coda  DB 

poaaibla  arrora: 

BAD_BABDLB 

CAMTJRB8CT 

non-arror  ratura: 

carry  flag  claar 


Baaata  tba  latarfaca  aaaociatad  with  haadla  to  a  known  atata,  aborting  any  transmits 
la  prooaaa  and  rainltialirlag  tba  raealvar.  Tba  local  aat  addraaa  la  raaat  to 
tba  default  (fro*  BOM) ,  tba  anltlcaat  Hat  la  claarad,  and  tba  receive  node  la  aat 
to  3  (own  addraaa  S  broadeaata) .  Zf  wultipla  handlaa  are  open,  tbaaa  actions  might 
aerloualy  disrupt  other  applicationa  ualag  tba  latarfaca,  so  CABT_RBSET  should  be 
raturaad. 


6.10  get _parameters() 


error  ratura: 

aarry  flag  aat 

arror  coda  DB 

poaaibla  arrora: 

BAD  «vum«*wr» 

aoa  arror  ratura: 

carry  flag  claar 

struct  paraa  far  *;  XS:DZ 

struct  par am  ( 
unsigned  char  najor_rev; 
unsigned  char  minor_rav; 
unsigned  char  length; 
unsigned  char  addr_len; 
unsigned  short  mtu; 
unsigned  short  anltieast_awal; 
unsigned  short  rcr_buf a ; 
unsigned  short  xatt_bufs; 
unsigned  short  int_num; 
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); 

The  performance  of  an  application  may  bonofit  from  using  get_parametars  ()  to  obtain 
a  nuafeor  of  driw  paraaatars .  This  function  was  added  to  vl .  09  of  this 
spocification,  and  nay  not  bo  inpianontod  by  all  drivers  (see  driver_inf o 0 ) . 

Xhe  aajor  rev  ^  minor  rev  fields  are  the  major  and  sd.nor  revision  numbers  of  tbe 
version  of  this  specification  tbe  driver  conforms  to.  for  this  document,  najor_rev 
is  1  and  minor_rev  is  9.  The  length  field  may  be  used  to  determine  which  values 
are  valid,  should  a  later  revision  of  this  specification  add  more  values  at  the 
end  of  this  structure,  for  this  document,  length  is  14.  The  addr_len  field  is 
the  length  of  a  MAC  address,  in  bytes.  *ote  tbe  par  am  structure  is  assumed  to  be 
packed,  such  that  these  fields  occupy  four  consecutive  bytes  of  storage. 

Xn  the  param  structure,  the  ntu  is  the  maximum  MAC-level  packet  the  driver  can 
handle  (on  Ethernet  this  number  is  fixed,  but  it  may  vary  on  other  media,  e.g. 
802.5  or  TDDX) .  The  nulticast_aval  field  is  the  number  of  bytes  required  to  store 
all  the  saalticast  addresses  supported  by  any  'perfect  filter”  mechanism  in  the 
hardware.  Calling  set_nultieast_list{)  with  its  len  argument  equal  to  this  value 
should  not  fail  with  a  *<f SPACE  error,  h  value  of  sero  implies  no  multicast  support. 

The  rev  bufs  and  xmt_bufs  indicate  the  number  of  back-to-back  receives  or  transmits 
the  car  d/dr  iver  combi  nstion  can  accommodate,  minus  1.  The  application  can  use  this 
information  to  adjust  flow-control  or  transmit  strategies,  i  single-buffered  card 
(for  example,  an  Interlan  BX5010)  would  normally  return  0  in  both  fields.  1  value 
of  0  in  rcv_bufs  could  also  be  used  by  a  driver  author  to  Indicate  that  the  hardware 
has  limitations  which  prevent  it  from  receiving  as  fast  as  other  systems  can  send, 
and  to  recommend  that  the  upper-layer  protocols  invoke  lock-step  flow  control  to 
avoid  packet  loss. 

The  iiit_num  field  should  be  set  to  a  hardware  interrupt  that  the  application  can 
hook  in  order  to  perform  interrupt -time  protocol  processing  after  the  BOX  has  been 
sent  to  the  8259  interrupt  controller  and  the  card  is  ready  for  more  interrupts. 
A  value  of  sero  indicates  that  there  is  no  such  interrupt .  Any  application  hooking 
this  interrupt  and  finding  a  non-sero  value  in  the  vector  must  pass  the  interrupt 
down  the  chain  and  wait  for  its  predecessors  to  return  before  performing  any 
processing  or  stack  switches.  Any  driver  which  implements  this  function  via  a 
separate  IBT  instruction  and  vector,  instead  of  just  using  the  hardware  interrupt, 
must  prevent  any  saved  context  from  being  overwritten  by  a  later  interrupt.  Xn 
other  words,  if  tbe  driver  switches  to  its  own  stack,  it  must  allow  reentrancy . 

6.11  as_send_pk!() 


int  aa_s end_pkt (buffer,  length,  upcall)  AH  —  11 

char  far  * buffer;  DS:SX 

unsigned  length;  CX 

int  (far  *upcall) () ;  BS:DX 

error  return: 

carry  flag  set 

error  code  DB 

possible  errors: 

CAMTjnSD 

BAD  COMMMID 

non-error  return: 

carry  flag  clear 

buffer  available  upcall: 

(*upcall) (buffer,  result) 

int  result;  AX 

char  far  "buffer;  SS-.DX 
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m  send_pkt ( )  differs  fro*  sendjpktO  in  that  the  upcall ()  routine  is  celled  when 
the  application' s  data  has  been  copied  out  of  the  buffer,  and  the  application  can 
safely  Modify  or  re-use  the  buffer.  The  driver  nay  pass  a  non-sero  error  code  to 
upcall  (}  if  the  copy  failed,  or  seas  other  error  was  detected,  otherwise  it  should 
< ndl »«>«  success,  even  if  the  packet  hasn't  actually  been  transmitted  yet.  Mote 
that  the  buffer  passed  to  send_pkt()  is  assumed  to  be  awdifiable  when  that  call 
returns,  whereas  with  as_send_pkt  () ,  the  buffer  nay  be  queued  by  the  driver  and 
dealt  with  later.  Zf  an  error  is  returned  on  the  initial  call,  the  upcall  will 
not  be  executed.  This  function  was  added  in  vl.09  of  this  specification,  and  nay 
not  be  inplenented  by  all  drivers  (see  driver^infoO )  . 

6.12  Mt_rcv_mod«() 


int  handle; 
int  node; 

error  return: 

carry  flag  set 


node)  AH  —  20 
BX 
CX 


The  following 


possible  errors: 
BAD_HMR>LS 
BkO_MODK 

non-error  return: 

carry  flag  clear 


Sets  the  receive  node  on  the  interface  associated  with  handle, 
values  are  accepted  for  node: 

node  meaning 

1  turn  off  receiver 

2  receive  only  packets  sent  to  this  interface 

3  node  2  plus  broadcast  packets 

4  node  3  plus  limited  multicast  packets 

5  mode  3  plus  sill  multicast  packets 

€  all  packets 


Mote  that  not  all  interfaces  support  all  modes .  The  receive  mode  affects  all 
packets  received  by  this  interface,  not  just  packets  associated  with  the  handle 
argument.  See  the  extended  driver  functions  get juultieast_list ( )  and  setjnulti- 
cast_list()  for  programming  "perfect  filters'  to  receive  specific  multicast 

addresses . 


Mote  that  a 
implemented, 
the  first  ac 


3  is  the  default,  and  if  the  set_rcv_node  ( )  function  is  not 
le  3  is  assumed  to  be  in  force  as  long  as  any  handles  are  open  (from 
i_type{)  to  the  last  release_type () ) . 


6.13  get_rcv_mcx1e{) 


ary-'Tt'rrrtr 


get  rev 


int  handle; 

error  return: 

carry  flag  set 
error  code 
possible  errors: 
BJU>_HA*DLE 
non-error  return: 
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carry  flag  clear 


lateral  the  currant  raoalTt  aoda  o f  the  interface  aaaociatad  with  handle. 

6.14  Mt_multicast_li«t(} 


at (addrlst,  len)  AH 
char  far  ‘addrlat;  HS:DZ 
int  len;  CX 

error  return: 

carry  flag  aet 

error  code  OH 

poaaible  errora: 

HOJMOX.TXCAST 

H0~8PACE 

BAD_ADDRXSS 

non-error  return: 

carry  flag  clear 


The  addrlat  argument  ia  aa tuned  to  point  to  an  len-byte  buffer  containing  a  number 
of  nulticaat  addreaaaa.  BAD_ADDRXSS  ia  returned  if  len  modulo  the  aiae  of  an 
addraaa  ia  not  equal  to  0,  or  the  data  ia  unacceptable  for  mamm  reaaon .  HO_SPACX 

ia  returned  (and  no  addreaaea  are  aet)  if  there  are  more  addreaaea  than  the 
hardware  aupporta  directly. 

The  recnemandad  procedure  for  aetting  nulticaat  addreaaea  ia  to  iaaue  a  get_nulti- 
caat_liat(),  copy  the  information  to  a  local  buffer,  add  any  addreaaea  deaired, 
and  iaaue  a  aet_nultieaat_liat() .  Thia  ahould  be  reverted  when  the  application 
exit  a.  Zf  the  aetjnulticaat_llat()  faila  due  to  H0_SPJICX,  uae  tet_rcv_mode  ( )  to 
aet  mode  5  inatead. 


6.15  get_multicast_list() 


error  return: 

carry  flag  aet 
error  code 
poaaible  errora: 
■OJMOltTXCAST 
HO  SPACE 


AH  —  23 


non-error  return: 

carry  flag  clear 
char  far  ‘addrlat; 
int  lea; 


E8:DZ 

CX 


On  a  aueoeaeful  return,  addrlat  poiata  to  len  bytea  of  atulticaat  addreaaea  currently 
ia  uae.  The  application  program  nuat  not  modify  thia  information  in-place.  A 
HOJBPACE  error  indicator  that  there  waan't  enough  room  for  all  active  nulticaat 

addreaaea . 
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6.16  0«t_statistics() 


get_statistics 

int  handle; 

•cror  ntuza: 

carry  flag  aat 
error  coda 
possible  errors: 

BADJUkMDLE 

non-error  return: 

carry  flag  clear 
char  far  *atats; 

struct  statistics  { 
unsigned  long  paekets_in; 
unsigned  long  packet s_out; 
unsigned  long  bytes_in; 
unsigned  long  bytes_out; 
unsigned  long  errora_in; 
unsigned  long  errora_out; 
unsigned  long  packet b_1 o at  ; 


Returns  a  pointer  to  a  statistics  structure  for  the  interface.  The  values 
stared  as  to  be  notes 1  80xx  32 -bit  intagara. 

6.17  Mt_address() 


AH  —  25 

■S:DX 

CX 


_  eas(addr 
char  far  *addr; 
int  lan; 

error  return: 

carry  flag  set 
error  code 
possible  errors: 
CA*T_SXT 
BAD_ADDRZSS 

non-error  return: 

carry  flag  clear 
length 


This  call  is  used  when  tbs  application  or  protocol  stack  needs  to  use  a  specific 
LAM  address.  Tor  instance,  BECnet  protocols  on  Ethernet  encode  the  protocol 
address  in  the  Ethernet  address,  requiring  that  it  be  set  when  the  protocol  stack 
is  loaded.  A  BAD_ADORESS  error  indicates  that  the  Packet  Driver  doesn't  like  the 
len  (too  short  or  too  long),  or  the  data  itself.  Rote  that  packet  drivers  should 
refuse  to  change  the  address  (with  a  CAMT_SET  error)  if  nore  than  one  handle  is 
open  (lest  it  be  changed  out  f roa  under  another  protocol  stack) . 
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Appendix  A 

Interface  classes  and  types 

Tlw  following  an  defined  u  network  intarfaca  eluta*,  with  thair  individual  typaa 
listad  iaaaadiataly  following  tha  elasa. 

DSC/Xntal/Xarox  "Bluabook"  Xtharnat 


Claaa  1 

3COM  3C500/3C501  1 

3COM  3C505  2 

Zntarlan  NiSOlO  3 

BZCC  Data  Metworka  4110  4 

BZCC  Data  Hatworka  4117  5 

MZCOM-Xntarlan  IIP 600  6 

Ongamann-Baaa  PC-MXC  8 

Dnivation  HC-516  9 

TBK  PC-2000  10 

Zntarlan  M1S210  11 

3COM  3C503  12 

3COM  3C523  13 

Waatarn  Digital  IID8003  14 

Spidar  Syateaa  S4  15 

Torua  Prana  Laval  16 

10MKT  Cn—aini  cat  Iona  17 

Gateway  PC-bua  18 

Oataway  AT-bua  19 

Sataway  MCA-bua  20 

XMC  PCnic  21 

ZMC  PCnic  II  22 

ZMC  PCnic  8bit  23 

Tigan  C  n — mlcationa  24 

Micraautic  Research  25 

Clarkaon  "Multiplexor”  26 

D-Link  8-bit  27 

D-Link  16-bit  28 

D-Link  PS/2  29 

Baaaarcb  Maehinaa  8  30 

Baaaareh  Maehinaa  16  31 

Baaaarcb  Maehinaa  MCA  32 

Radix  Microaya.  BXM1  16-bit  33 

Zntarlan  B19210  34 

Zntarlan  B16510  35 

Vaatra  LABMASTZR  16-bit  36 

Vaatra  LARMASTXR  8-bit  37 

Alliad  Talaaia  PC/XT/AS  38 

Alliad  Talaaia  BBC  PC-98  39 

Alliad  Talaaia  Fujitau  FMR  40 

Oagarnam.-Baaa  HZC/PS2  41 

Tiara  LAXCard/X  AT  42 

Tiara  UUTCard/I  MC  43 

Tiara  LAHCard/X  TP  44 

Spidar  Coaai.  8pidarCon  8  45 

Spidar  Coaai.  SpidarCoee  16  46 

AT4T  Star lan  KAO  47 

AT6T  Star lan-10  MAO  48 

ATCT  Xtharnat  KAO  49 

Zntal  anart  card  50 

ProMXT-10 

Claaa  2 

Protaon  pl300  1 

Protaon  pl800  2 
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802 .  S/FroMT-4 

Class 

IBM  Toksn  ring  adapt sr 
P rot eon  pl340 
Proteoa  pl344 
Oat away  PC-bus 
Gateway  AT-bus 
Gateway  MCA-bua 


Oeuii.net 

Class 

Appletalk 

Class 

Sarlal  line 

Class 

Clarkson  82S0-SLXP 
Clarkson  'Multiplexor' 

Starlan 

Class 


ArOMet 

Class 

Datapoint  HIM 
AX.23Class 
KISS  Class 

IKK  802.3  w/802.2  hdrs 

Class 

Typos  as  given  under  DXX  Ethernet 
See  Appendix  0. 

rODZ  w/802.2  hdrs 
Class 


(KOTC :  Class 
by  Ethernet) 


has  been  subsuaed 


Internet  X.25 

Class 

Western  Digital 
Frontier  Technology 

W.T.  LASSTAR  (encapsulating  DXX) 

Class 

«T  LASS TAR/ 8 
■T  LASS  TAR/ MC 
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Appendix  B 
Function  call  numbers 

The  following  decimal  nuabari  are  uaod  to  apecify  which  oporation  tha  packot  drivar 
ahould  perform.  Tha  number  ia  atorad  in  ragiatar  AB  on  call  to  tha  packat  drivar. 


driver_info  1 

accaaa_typa  2 

ralaaaa_typa  3 

aand_pkt  4 

terminate  5 

gat_addraaa  6 

raaat_intarf aca  7 

’fgat_paraaatara  10 

+a»_send__pkt  11 

*  aet_rcv__mode  20 

*get_rcv_aode  21 

*aat_aulticaat_liat  22 

*get_aultiaaat_liat  23 

*get_atatiatica  24 

•ant  addraaa  25 


+  indieataa  a  high -par formanca  packat  drivar  function 
a  indieataa  an  extended  packat  drivar  function 


AB  valuaa  from  128  through  255  (0x80  through  OxFF)  ara  raaarvad  for  uaar-davalopad 
axtanaiona  to  thia  apacif ication .  While  FTP  Software  cannot  support  uaar 
axtanaiona,  we  ara  willing  to  act  aa  a  clearing  houaa  for  information  about  them. 
For  aura  inforaation,  contact  ua. 
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Appendix  C 
Error  codes 


Paaket  driver  calls  indicate  error  by  setting  the  carry  flag  on  return.  The  error 
code  is  returned  in  register  OB  (a  register  not  used  to  pass  values  to  functions 
oust  be  used  to  return  the  error  code) .  The  following  error  codes  are  defined: 


BAD  HANDLE 


Invalid  handle  number, 


NO  CLASS 


NO  TYPE 


NO  NUMBER 


BAD  TYPE 


NO  MULTICAST 


CANT  TERMINATE 


8  BAD  MODE 


NO  SPACE 


10  TYPE  INUSE 


11  BAD  COMMAND 


12  CANT  SEND 


13  CANT  SET 


14  BAD  ADDRESS 


15  CANT  RESET 


No  interfaces  of  specified  class  found, 

No  interfaces  of  specified  type  found, 

No  interfaces  of  specified  number  found, 

Bad  packet  type  specified. 

This  interface  does  not  support  multicast. 

This  packet  driver  cannot  terminate. 

An  invalid  receiver  mode  was  specified. 

Operation  failed  because  of  insufficient  space. 

The  type  had  previously  been  accessed,  and  not  released. 

The  command  was  out  of  range,  or  not  implemented. 

The  packet  couldn' t  be  sent  (usually  hardware  error) , 

Hardware  address  couldn't  be  changed  (more  than  1  handle 
open) , 

Hardware  address  has  bad  length  or  format. 

Couldn't  reset  interface  (more  than  1  handle  open) . 
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Appendix  D 

802.3  vs.  Blue  Book  Ethernet 

Om  oukutii  of  tho  piaiwt  specification  Is  that  that*  la  no  provision  for 
simultaneous  support  of  S02.3  sad  Bins  Book  (tho  old  DBC-Intel-Xerox  standard) 
Kthsrnat  hoadors  via  a  single  Packs t  Driver  (as  dsflnsd  by  its  intar rapt) .  Tho 
problem  is  that  tho  "other typo'  of  Bluo  Book  paokots  is  in  bytos  12  and  13  of  tho 
header,  and  in  802.3  tho  corresponding  bytes  arc  interpreted  as  a  length.  In  802.3, 
the  field  which  would  appear  to  be  most  useful  to  begin  the  type  in  is  the 

802.2  header,  starting  at  byte  14.  This  is  only  a  problea  on  Ethernet  and  variants 
Starlan) ,  where  802.3  headers  and  Blue  Book  headers  are  likely  to  need  co-exist 
for  many  years  to  cosm. 

One  solution  is  to  redefine  class  1  as  Blue  Book  Ethernet,  and  define  a  parallel 
class  for  802.3  with  802.2  packet  headers.  This  requires  that  a  2nd  Packet  Driver 
(*s  defined  by  its  interrupt)  be  ispleaonted  where  it  is  necessary  to  handle  both 
kinds  of  packets,  although  they  could  both  be  part  of  the  rr —  TSR  nodule . 

As  of  vl.07  of  this  specification,  elaaa  11  waa  assigned  to  802.3  using  802.2 
headers,  to  inplenent  the  above. 

*°te •  According  to  this  scheae ,  an  application  wishing  to  receive  IP  encapsulated 
with  an  802.2  SHAF  header  and  'ethertype'  of  0x800,  per  RPC  1042,  would  specify  a 
typelen  argument  of  8,  and  type  would  point  to: 

char  iee_ip [ ]  a  (OxAA,  OxAA,  3,  0,  0,  0,  0x00,  0x08); 


Janes  B.  VanBokkelen 
jbvb@ftp . com 
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VESA  Graphics  Interface 


Introduction 

This  appendix  contain*  tha  a pacification  for  tha  Vidao  Electronics  Standard* 
Association  (VESA)  graphics  intorfaco.  Raadars  of  this  appendix  should  already  bo 
familiar  with  progressing  VOX*  at  tha  hardware  level  and  real  node  assembly  language, 
headers  who  ax*  unfamiliar  with  programming  the  VGA  should  first  read  one  of  the 
away  VGA  programming  tutorials  before  attempting  to  understand  these  extensions  to 
the  standard  VGA. 

The  IBM  VGA  has  become  a  do  facto  standard  in  the  PC  graphics  world.  A  multitude 
of  different  VGA  offerings  exist  in  the  marketplace,  each  one  providing  BIOS  or 
register  compatibility  with  the  IBM  VGA.  More  and  more  of  these  VGA  compatible 
products  i^alesmnt  various  supersets  of  the  VGA  standard.  These  extensions  range 
from  higher  resolutions  and  sox*  colors  to  improved  performance  and  even  soma 
graphics  processing  capabilities .  Intense  eoapetition  has  dramatically  improved 
the  price/perfoxmane*  ratio,  to  tha  benefit  of  the  end  user. 

However,  several  serious  probleaw  face  a  software  developer  who  intends  to  take 
advantage  of  these  Super  VGA  environments.  Because  there  is  no  standard  hardware 
implementation,  the  developer  is  faced  with  widely  disparate  Super  VGA  hardware 
architectures.  Lacking  a  common  software  interface,  designing  applications  for 
these  environment*  is  costly  and  technically  difficult.  Except  for  applications 
supported  by  OEM-specific  display  drivers,  very  few  software  packages  can  take 
advantage  of  tha  power  and  capabilities  of  Super  VGA  products. 

Tha  purpose  of  tha  VESA  VGA  BIOS  extension  is  to  remedy  this  situation.  Being  a 
cowon  software  interface  to  Super  VGA  graphics  products,  the  primary  objective  is 
to  enable  application  and  system  software  to  adapt  to  and  exploit  the  wide  range 
of  features  available  in  these  VGA  extensions. 

Today,  an  application  has  no  standard  nechsnlsn  to  determine  what  Super  VGA  hardware 
it  is  running  on.  Only  by  knowing  OEM- specific  features  can  an  application  determine 
the  presence  of  a  particular  video  board.  This  often  involves  reading  and  testing 
registers  located  at  I/O  addresses  unique  to  each  OEM.  By  not  knowing  what  hardware 
an  application  is  running  on,  few,  if  any,  of  the  extended  features  of  the  underlying 
hardware  can  be  used. 

The  VESA  BIOS  extension  provides  several  function*  to  return  information  about  tha 
video  environment .  These  function*  return  system  level  information  as  well  a*  video 
nod*  specific  details.  Function  00H  returns  general  system  level  information, 
including  an  OEM  identification  string.  Tha  function  also  return*  a  pointer  to  the 
supported  video  modes.  Function  01B  may  be  used  by  the  application  to  obtain 
information  about  each  supported  video  mod*.  Function  03B  returns  the  current  video 
mode. 

Du*  to  the  feat  that  different  Super  VGA  products  have  different  hardware 
implementation* ,  application  software  ha*  great  difficulty  in  adapting  to  each 
environment .  However,  sine*  each  is  based  on  the  VGA  hardware  architecture, 
differences  are  most  common  in  video  mods  initialisation  and  memory  stepping.  Tha 
rest  of  the  architecture  is  usually  kept  intact,  including  I/O  mapped  registers, 
vidao  buffer  location  in  the  CFO  address  space,  DAC  location  and  function,  etc. 

The  VESA  BIOS  extension  provides  several  functions  to  interface  to  tha  different 
Super  VGA  hardware  inplewntation* .  The  most  important  of  these  is  Function  02b, 
set  Super  VGA  vidao  mod*.  This  function  isolates  the  application  from  the  tedious 
and  complicated  task  of  setting  up  a  video  mode.  Function  05b  provides  an  interface 
to  the  underlying  mannry  napping  hardware.  Function  04b  enables  an  application  to 
save  restore  a  Super  VGA  state  without  knowing  anything  of  the  specific 
implementation . 
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A  primary  design  objective  of  tha  VISA  BZ08  extension  ir  to  preserve  nsrlwf 
aospatibility  to  tha  standard  VGA  environnant .  Xn  no  way  should  tha  BIOS  axtansioas 
compromise  ooapatihility  or  parf ormance .  Anothar  but  ralatad  eoncarn  is  to  ainiaisa 
tha  changes  naeassary  to  an  existing  VSA  BIOS.  BAM  as  wall  as  BOM-basad 
implementations  of  tha  BIOS  extension  should  ba  possibla. 


Tha  purposa  of  tha  VISA  BXOS  axtansion  is  to  provide  support  for  axtandad  VGA 
sptI rnnasnti .  Thus,  tha  underlying  hardware  architecture  is  assuaad  to  ba  a  VGA. 
Graphics  softwara  that  drivas  a  Super  VGA  board  will  perform  its  graphics  output 
in  generally  tha  sans  way  it  drives  a  standard  VGA,  i.a.  writing  directly  to  a  VGA 
stylo  f sane  buffer,  Manipulating  graphics  controller  registers,  directly  prog r anal  ng 
tha  palette,  ate.  Bo  significant  graphics  processing  will  be  dona  in  hardware .  Tor 
this  reason,  tha  VISA  BXOS  axtansion  does  not  provide  any  graphics  output  function, 
such  as  BitBit,  line,  or  circle  drawings,  ate. 

Outside  tha  scope  of  this  VISA  BXOS  extension  is  handling  of  different  nonitors 
and  sonitor  timings.  Such  items  are  dealt  with  in  other  VISA  fora.  Tha  purpose  of 
the  VISA  BXOS  extension  is  to  provide  a  standardised  software  interface  to  Super 
VGA  graphics  nodes,  independent  of  monitor  and  amnitor  timing  issues. 

Tha  following  VISA  sods  nuabers  have  bean  defined 


15-bit 


7 -bit 

Mode  Bober 


Basolution 


Colors 


€40x400 

€40x480 

800x800 

800x800 

1024x768 

1024x768 

1280x1024 

1280x1024 


Tha  first  consideration  in  Implementing  axtandad  video  memory  is  to  give  access  to 
tha  memory  to  application  softwara.  Tbs  standard  VGA  CFO  address  space  for  16  color 
graphics  modes  is  typically  at  segamnt  AOOOh  for  64K.  This  gives  access  to  tha  256K 
bytes  of  a  standard  VGA,  i.a.  €4K  par  plana.  Access  to  tha  axtandad  video  meanry 
is  accomplished  by  napping  portions  of  tha  video  memory  into  the  standard  VGA  CPU 
address  space.  Bvery  super  VGA  hardware  implementation  provides  a  machanit an  for 
softwara  to  specify  the  offset  from  the  start  of  video  memory  which  is  to  be  mapped 
to  the  start  of  tha  CPU  address  space.  Providing  both  read  and  write  access  to  the 
mapped  amatory  provides  a  necessary  level  of  hardware  support  for  an  application  to 
manipulate  the  extended  video  memory . 


Several  new  BXOS  calls  have  been  defined  to  support  Super  VGA  modes.  Tor  mar Inf 
compatibility  with  the  standard  VGA  BXOS,  these  calls  are  grouped  under  one  function 
number.  This  number  is  passed  in  the  AH  register  to  the  int  XOh  handler. 

The  designated  Super  VGA  extended  function  number  is  4Ph.  This  function  number  is 
presently  unused  in  most,  if  not  all,  VGA  BXOS  implementation.  A  standard  VGA  BXOS 
performs  no  action  when  function  call  4F  is  made .  Super  VGA  standard  VS900602 
defines  sub functions  00B  through  07B.  Subfunction  nuabers  08B  through  0TTB  are 
reserved  for  future  use. 


Bvery  function  returns  status  infox 
status  word  is  as  follows: 


ttion  in  the  AX  register.  The  format  of  the 


AL  —  4Th 
AX.  !-  4Th 
AH  —  OOh 
AH  —  Olh 


Punation  is  supported 
Function  is  not  supported 
Function  call  successful 
Function  call  failed 
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Software  should  treat  a  noasero  walue  in  the  AS  register  as  a  general  failure 
condition .  Zn  later  versions  of  the  VKSA  BIOS  extension  new  error  codes  night  be 
defined. 

Function  OOh  •  Return  Super  VGA  Information 

The  purpose  of  this  function  is  to  provide  information  to  the  calling  prograa  about 
the  general  capabilities  of  the  Super  VGA  environment.  The  function  fills  an 
information  block  structure  at  the  address  specified  by  the  caller.  The  information 
block  also  is  25S  bytes. 

Input:  AH  “  4Tb  Super  VGA  support 

AL  m  OOh  Return  Super  VGA  information 
BS:DX  "  Pointer  to  Buffer 

Output:  AX  ■  status 

(All  other  registers  preserved) 

The  information  block  has  the  following  structure: 

VgalnfoBlock  struc 


VKSASignature 

db 

'VKSA' 

;4  signature  bytes 

VBSAVersion 

dw 

? 

; VKSA  version  number 

OKMStringTtr 

dd 

? 

; Pointer  to  OEM  string 

Capabilities 

dd 

4  dup  (?) 

; capabilities  of  video 

VidsoModeTtr 

dd 

? 

.-pointer  to  SVGA  modes 

TotelMemciry 

dw 

? 

,-nusber  of  64kb  blocks 

Reserved 

db 

242  dup  (?) 

; rsmsl nder  of  VgaXnfoBlock 

VgaXnfoBlock  ends 

The  VKSASignature  field  contains  the  characters  'VESA'  if  this  is  a  valid  block. 

The  VBSAVersion  is  a  binary  field  which  specifies  what  level  of  the  VKSA  standard 
the  Super  VGA  BIOS  conforms  to.  The  higher  byte  specifies  the  major  version  number. 
The  lower  byte  specifies  the  minor  version  humber .  The  current  VKSA  version  number 
is  1.1.  Applications  written  to  use  the  features  of  a  specific  version  of  the  VKSA 
BIOS  extension  axe  guaranteed  to  work  in  later  versions.  The  VKSA  BIOS  extension 
will  be  fully  upwards  compatible . 

The  QKMStringPtx  is  for  a  pointer  to  a  null  terminated  OKM-defined  string.  The 
string  may  be  used  to  identify  the  video  chip,  video  board,  memory  configuration, 
etc.,  to  hardware  specific  display  drivers.  There  are  no  restrictions  on  the  format 
of  the  string. 

The  Capabilities  field  describes  what  general  features  are  supported  in  the  video 
environment.  The  bits  are  defined  as  follows: 

00-31  ■  reserved. 

The  VideoModePtr  points  to  a  list  of  supported  Super  VGA  (VBSA-defined  as  well  as 
OEM  specific)  mode  numbers.  Bach  mods  number  occupies  one  word  (16  bits) .  The  list 
of  mode  numbers  is  terminated  by  a  -1  (OFTFTh) .  The  pointer  could  point  into  either 
ROM  or  RAM,  depending  on  the  specific  Implementation .  Either  the  list  would  be  a 
static  string  stored  in  ROM,  or  the  list  would  be  generated  at  run-time  in  the 
information  block  in  RAM.  Zt  is  the  applications  responsibility  to  verify  the 
current  availability  of  any  nods  returned  by  this  function  through  the  Return  Super 
VGA  node  information  (function  1)  call.  Some  of  the  returned  modes  may  not  be 
available  due  to  the  video  boards'  current  memory  and  monitor  configuration. 

The  T  ■! Memory  field  indicates  the  amount  of  memory  installed  on  the  VGA  board. 
Xts  vi-ue  represents  the  number  of  64kb  blocks  of  memory  currently  installed. 
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Function  01  h  -  Return  Super  VGA  Mode  informetion 

This  function  returns  information  about  a  specific  Super  VGA  video  mode  that  was 
returned  by  function  0.  The  function  fills  a  mode  information  block  structure  at 
the  address  specified  by  the  caller.  The  mode  information  block  sise  is  narlnun 
256  bytes. 

Some  information  provided  by  this  function  is  implicitly  defined  by  the  VESA  mode 
nuaber .  However,  some  Super  VGA  implementations  might  support  video  modes  other 
than  those  defined  by  VBSA.  To  provide  access  to  these  modes,  this  function  also 
returns  various  other  information  about  the  mode . 


Input:  AL  m  «Fh  Super  VGA  support 

AL  m  Olh  Return  Super  VGA  mode  information 
CX  ”  Super  VGA  video  mod*  number 
BS:OI  ■  Pointer  to  256  byte  buffer 


Output:  AX  ■  status 

(All  other  registers  preserved) 

The  mods  information  block  has  the  following  structure: 

ModelnfoBlock  struc 


/mandatory  information 
ModeAttributes 
HinAAttributes 
WinBAttributes 
HinGranularity 
HinSise 
MnASegment 
WinBSegmant 
WinfuncPtr 
BytesPerScanLine 

/optional  Information 
XResolution 
YResolution 
XCharSise 
TCharSise 
BumberOfPlanes 
BitsPerPirel 
WumberOfSanks 
Memory Unde 
BankSlse 

HumberOf ImagePages 
Reserved 


dw  ?  /mode  attributes 

db  ?  ;  window  A  attributes 

db  ?  /window  B  attributes 

dw  ?  /window  granularity 

dw  ?  /window  sise 

dw  ?  /window  A  start  segment 

dw  ?  /window  B  start  segment 

dd  ?  /pointer  to  window  function 

dw  ?  /bytes  per  scan  line 

/extended  information 

dw  ?  /horisontal  resolution 

dw  ?  /vertical  resolution 

db  ?  /character  cell  width 

db  ?  /character  cell  height 

db  ?  /nuaber  of  memory  planes 

db  ?  /bits  per  pixel 

db  ?  /number  of  banks 

db  ?  /memory  model  type 

db  ?  /bank  sise  in  kb 

db  ?  /number  of  images 

db  1  /reserved  for  page  function 

db  255  dup  (?)  /rest  of  ModelnfoBlock 


Function  02h  -  Set  Super  VGA  Video  Mode 

This  function  initialises  a  video  mode.  The  BX  register  contains  the  video  mode 
number.  The  format  of  VISA  mode  numbers  is  described  previously.  If  the  mode  cannot 
be  set,  the  BIOS  should  leave  the  video  environment  unchanged  and  return  a  failure 
error  code. 


Input:  AH  m  4Ph  Super  VGA  support 

AL  m  02h  Set  Super  VGA  video  mode 

BX  b  video  mode 

D0-D14  b  video  mode  number 
D15  ■  clear  memory  flag 

0  >  clear  video  memory 
1  b  Don't  clear  video  memory 
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Output:  AX  »  status 

(All  other  registers  srs  prsssrvud. ) 

Function  03h  •  Return  Currant  Video  Mode 

This  function  returns  tbs  current  video  node  in  BX.  The  format  of  VISA  video  mode 
nuabers  is  described  previously. 

Input:  AH  ■  4Pb  Super  VGA  support 

AI<  “  03h  Return  current  video  mode 

Output:  AX  “  status 

BX  “  current  video  node  number 
(All  other  registers  are  preserved.) 

Function  04h  -  Save/Restore  Super  VGA  Video  State 

These  functions  provide  a  eachani an  to  save  and  restore  the  Super  VGA  video  state. 
The  functions  are  a  superset  of  the  three  subfunctions  under  standard  VGA  BIOS 
function  ICh  ( Save /Restore  video  state) .  The  complete  Super  VGA  video  state  (except 
video  eaenry)  should  be  savable/restorable  by  setting  the  reguested  states  aask 
(in  the  CX  register)  to  OOOPh. 

Input:  AH  “  4Ph  Super  VGA  support 

AI>  “  04h  Save/Restore  Super  VGA  video  states 
DL  **  OOh  Return  save/restore  state  buffer  siae 
CX  ■  Requested  states 

OO  ■  Save/restore  video  hardware  state 
D1  »  Save/restore  video  BIOS  data  state 
D2  m  save/restore  video  DAC  state 
D3  m  Save/ restore  Super  VGA  state 

Output:  AX  “  status 

Bx  ■  Humber  of  64-byte  blocks  to  hold  the  state  buffer. 


Input:  AH  ■  4Fh  Super  VGA  support 

AL  ■  04h  Save/Restore  Super  VGA  video  states 
DL  <■  Olh  Save  Super  VGA  video  state 
CX  “  Requested  states 
BS:BX  ■  Pointer  to  buffer 

Output:  AX  “  status 


Input:  AH  ■  4Ph  Super  VGA  support 

AL  ■  04h  Save/Restore  Super  VGA  video  states 
DL  ■  02h  Restore  Super  VGA  video  state 
CX  ■  Requested  states 
BS:BX  "  Pointer  to  buffer 

Output:  AX  ■  status 


Due  to  the  goal  of  ceaplete  compatibility  with  the  VGA  environment,  the  standard 
VGA  BIOS  function  ICh  (Save/Restore  VGA  state)  has  not  been  extended  to  save  the 
Super  VGA  video  state.  VGA  BIOS  compatibility  requires  that  function  ICh  return  a 
specific  buffer  sise  with  specific  contents,  in  which  there  is  no  room  for  the 
Super  VGA  state. 
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Function  05h  -  CPU  Video  Memory  Window  Control 

This  function  Mti  or  goto  tho  position  of  tho  opoeifiod  window  in  the  video  toory. 
Tbo  function  allows  direct  access  to  tho  hardware  paging  registers.  To  use  this 
function  properly  the  software  should  use  VISA  BIOS  function  Olh  (return  Super  VGA 
node  information)  to  determine  the  sisa,  location,  and  granularity  of  the  windows. 

Input:  AH  m  4Ph  Super  VGA  support 

AL  m  OSh  Super  VGA  video  memory  window  control 

BB  -  OOh  Select  super  VGA  video  memory  window 

BL  ■  Window  number 

0  “  Window  A 
1  -  Window  B 

DX  »  Window  position  in  video  msmnry  (in  window 
granularity  units) 

Output:  AX  ■  status 

Input:  AB  *  4Fh  Super  VGA  support 

AL  •  OSh  Super  VGA  video  memory  window  control 

BB  ■  Olh  Return  super  VGA  video  memory  window 

BL  ■  Window  number 

0  ■  Window  A 
1  -  Window  B 

Output:  AX  “  status 

OX  ■  Window  position  in  video  smmory 

This  function  is  also  directly  accessible  through  a  far  call  from  the  application. 
The  address  of  the  BIOS  function  sty  be  obtained  by  using  VXSA  BIOS  function  Olh 
(return  Super  VGA  mods  information) .  A  field  in  the  Mode Inf oBlock  contains  the 
address  of  this  function.  Wote  that  this  function  may  be  different  among  video 
nodes  in  a  particular  BIOS  implementation  so  the  function  pointer  should  be  obtained 
after  each  set  mode. 

In  the  far  call  version,  no  status  information  is  returned  to  the  application. 
Also,  in  the  far  call  version,  the  AX  and  DX  registers  will  be  destroyed.  Therefore 
if  AX  and/or  DX  must  be  preserved,  the  application  must  do  so  prior  to  making  the 
far  call. 

The  application  must  load  the  input  arguments  in  BB,  BL,  and  DX  (for  set  window) 
but  does  not  need  to  load  either  AB  or  AL  in  order  to  use  the  far  call  version  of 
this  function. 

Function  06h  -  Set/Get  Logical  Scan  Lina  Length 

This  function  sets  or  gets  the  length  of  a  logical  scan  line.  This  function  allows 
an  application  to  set  up  a  logical  video  memory  buffer  that  is  wider  than  the 
displayed  area.  Function  07h  then  allows  the  application  to  set  the  starting  position 
that  is  to  be  displayed. 


Input: 


AB  -  4Fh 
AL  -  OSh 
BL  -  OOh 


Super  VGA  support 
Logical  Sean  Line  Length 
Select  Scan  Line  Length 


Output :  AX  ■  status 

BX  -  bytes  per  scan  line 

CX  ■  actual  pixels  per  scan  line 

DX  •  maximum  number  of  scan  lines 


Input:  AB  -  4Fh 

AL  -  OSh 
BL  -  Olh 


8uper  VGA  support 
Logical  Sean  Line  Length 
Return  Sean  Line  Length 
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Output :  AX  -  status 

SX  *  bytas  par  scan  lina 

CX  *  actual  pixels  par  scan  lisa 

DX  ■  satisBa  nuabar  of  scan  liaas 


Tha  desired  width  la  plxals  nay  not  ba  achievable  bacausa  of  VGA  hardwara 
coasidaratioas .  Tha  aaxt  largar  value  will  ba  salactad  that  will  accoanodate  tha 
dasirad  auabar  of  pixels,  aad  tha  actual  nuabar  of  pixala  will  ba  raturaad  in  CX. 
•X  raturns  a  walua  that  whan  addad  to  a  pointar  Into  vidao  asanry  will  point  to 
tha  next  scan  lina .  For  exaaple,  in  a  aoda  13h  this  would  ba  320,  but  in  aoda  12h 
this  would  ba  80.  DX  raturns  tha  nuabar  of  logical  scan  linas  baa ad  upon  tha  naw 
scan  lina  langth  tha  total  sawry  inatallad  and  usabla  in  this  display  aoda. 
This  function  is  also  valid  in  taxt  nodes.  Zn  text  nodes,  tha  application  should 
find  out  tha  currant  character  call  width  through  VISA  function  01  (or  VGA  BIOS 
function  lBh) ,  nultiply  that  tiaes  tha  dasirad  nuabar  of  characters  par  lina,  and 
pass  that  value  in  tha  CX  register. 

Function  07h  -  Set/Get  Display  Start 

This  function  selects  tha  pixel  to  ba  displayed  in  tha  upper  left  corner  of  tha 
display  from  tha  logical  page.  This  function  can  ba  used  to  pan  and  scroll  around 
logical  screens  that  are  largar  than  tha  displayed  screen.  This  function  can  also 
ba  used  to  rapidly  switch  between  two  different  displayed  screens  for  double  buffered 
aniaation  affects. 

Input:  AB  ■  4Fh 

A L  m  07b 
BE  m  00h 
BL  -  OOh 
CX  - 


Output: 

AX  - 

status 

Input: 

AH  ■ 

4Fh 

Super  VGA  support 

AL  - 

07h 

Display  Start  Control 

BL  > 

Olh 

Return  Display  Start 

Output: 

AX  - 

status 

BB  *  OOh  Reserved  and  will  ba  0 

CX  ■  First  Displayed  Pixel  in  Scan  Lina 

DX  ■  First  Displayed  Scan  Lina 


This  function  is  also  valid  in  taxt  nodes.  Zn  taxt  nodes  tha  application  should 
find  out  tha  currant  character  call  width  through  VISA  function  1  (or  VGA  BIOS 
function  IBB) ,  nultiply  that  tines  tha  dasirad  starting  character  colunn,  and  pass 
that  value  in  tha  CX  register.  Zt  should  also  anltiply  tha  currant  character  call 
height  tines  tha  dasirad  starting  character  row,  and  pass  that  value  in  the  DX 
register . 


Super  VGA  support 
Display  Start  Control 
Reserved  and  nnst  ba  0 
Select  Display  Start 
First  Displayed  Pixel  in  Scan  Lina 
First  Displayed  Scan  Lina 
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